home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / ELT-UC13.ZIP / CHAT.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1996-07-09  |  55.3 KB  |  3,437 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN004
  21.     Boolean  BOOLEAN005
  22.     Boolean  BOOLEAN006
  23.     Boolean  BOOLEAN007
  24.     Integer  INTEGER003
  25.     Integer  INTEGER009
  26.     Integer  INTEGER010
  27.     Integer  INTEGER011
  28.     Integer  INTEGER012
  29.     Integer  INTEGER013
  30.     Integer  INTEGER014
  31.     Integer  INTEGER015
  32.     Integer  INTEGER016
  33.     Integer  INTEGER017
  34.     Integer  TINTEGER018(10)
  35.     Integer  TINTEGER019(10)
  36.     Integer  INTEGER020
  37.     Integer  INTEGER021
  38.     Integer  INTEGER022
  39.     Integer  INTEGER023
  40.     Integer  INTEGER024
  41.     Integer  INTEGER025
  42.     Integer  INTEGER026
  43.     Integer  INTEGER027
  44.     Integer  INTEGER028
  45.     Integer  INTEGER029
  46.     Integer  INTEGER030
  47.     Integer  INTEGER031
  48.     Integer  INTEGER032
  49.     Integer  INTEGER033
  50.     Integer  INTEGER034
  51.     Integer  INTEGER035
  52.     Integer  INTEGER036
  53.     Integer  INTEGER037
  54.     Integer  INTEGER038
  55.     Integer  INTEGER039
  56.     Integer  INTEGER040
  57.     Integer  INTEGER041
  58.     Integer  INTEGER042
  59.     Integer  INTEGER043
  60.     Integer  INTEGER044
  61.     Integer  INTEGER045
  62.     Integer  INTEGER046
  63.     Integer  INTEGER047
  64.     Integer  INTEGER048
  65.     Integer  INTEGER049
  66.     Integer  INTEGER050
  67.     Integer  INTEGER051
  68.     String   STRING001
  69.     String   STRING002
  70.     String   STRING006
  71.     String   STRING010
  72.     String   STRING011
  73.     String   TSTRING012(10)
  74.     String   TSTRING013(10)
  75.     String   STRING014
  76.     String   STRING015
  77.     String   STRING016
  78.     String   STRING017
  79.     String   STRING018
  80.     String   STRING019
  81.     String   STRING020
  82.     String   STRING021
  83.     String   STRING022
  84.     String   STRING023
  85.     String   STRING024
  86.     String   STRING025
  87.     String   STRING026
  88.     String   STRING027
  89.     String   TSTRING028(500)
  90.     String   TSTRING029(500)
  91.     String   TSTRING030(16)
  92.     String   STRING031
  93.     String   STRING032
  94.     String   TSTRING033(100)
  95.     Byte     BYTE001
  96.     BigStr   BIGSTR001
  97.     BigStr   BIGSTR002
  98.     Declare  Function FUNCTION001(String STRING003, Integer INTEGER004, String STRING004, String STRING005, Boolean BOOLEAN002) String
  99.     Declare  Function FUNCTION002(String STRING009) Boolean
  100.  
  101.     Goto LABEL007
  102.     End
  103.     BOOLEAN001 = 1
  104.     STRING002 = ""
  105.     For INTEGER003 = 1 To Len("")
  106.         BYTE001 = Asc(Mid("", INTEGER003, 1))
  107.         If ((BYTE001 >= 65) && (BYTE001 <= 90)) Then
  108.             STRING002 = STRING002 + "@X0F" + Chr(BYTE001) + "@X07"
  109.             Continue
  110.         Endif
  111.         If ((BYTE001 >= 48) && (BYTE001 <= 57)) Then
  112.             STRING002 = STRING002 + "@X0F" + Chr(BYTE001) + "@X07"
  113.             Continue
  114.         Endif
  115.         If (Chr(BYTE001) == ".") Then
  116.             STRING002 = STRING002 + "@X08" + Chr(BYTE001) + "@X07"
  117.             Continue
  118.         Endif
  119.         If (Chr(BYTE001) == ",") Then
  120.             STRING002 = STRING002 + "@X08" + Chr(BYTE001) + "@X07"
  121.             Continue
  122.         Endif
  123.         If (Chr(BYTE001) == "(") Then
  124.             STRING002 = STRING002 + "@X08" + Chr(BYTE001) + "@X07"
  125.             Continue
  126.         Endif
  127.         If (Chr(BYTE001) == ")") Then
  128.             STRING002 = STRING002 + "@X08" + Chr(BYTE001) + "@X07"
  129.             Continue
  130.         Endif
  131.         If (Chr(BYTE001) == "Ö") Then
  132.             STRING002 = STRING002 + "@X0F" + Chr(BYTE001) + "@X07"
  133.             Continue
  134.         Endif
  135.         If (Chr(BYTE001) == "Ä") Then
  136.             STRING002 = STRING002 + "@X0F" + Chr(BYTE001) + "@X07"
  137.             Continue
  138.         Endif
  139.         If (Chr(BYTE001) == "Å") Then
  140.             STRING002 = STRING002 + "@X0F" + Chr(BYTE001) + "@X07"
  141.             Continue
  142.         Endif
  143.         STRING002 = STRING002 + Chr(BYTE001)
  144.     Next
  145.     STRING001 = STRING002
  146.  
  147.     EndFunc
  148.  
  149.  
  150. ;------------------------------------------------------------------------------
  151.  
  152.     Function FUNCTION001(String STRING003, Integer INTEGER004, String STRING004, String STRING005, Boolean BOOLEAN002) String
  153.  
  154.     String   STRING007
  155.     String   STRING008
  156.     Integer  INTEGER005
  157.     Integer  INTEGER006
  158.     Integer  INTEGER007
  159.     Integer  INTEGER008
  160.     Boolean  BOOLEAN003
  161.     String   STRING009
  162.  
  163.     STRING007 = ""
  164.     Print STRING003
  165.     Print "@X08["
  166.     INTEGER007 = GetX()
  167.     INTEGER008 = GetY()
  168.     For INTEGER006 = 1 To INTEGER004
  169.         Print "·"
  170.     Next
  171.     Print "@X08]"
  172.     AnsiPos INTEGER007, INTEGER008
  173.     :LABEL001
  174.     If (BOOLEAN002 == 0) STRING008 = Inkey()
  175.     If (BOOLEAN002 == 1) STRING008 = KInkey()
  176.     Select Case (Asc(STRING008))
  177.         Case 0
  178.             Goto LABEL001
  179.         Case 13
  180.             Goto LABEL003
  181.         Case 27
  182.             AnsiPos INTEGER007, INTEGER008
  183.             Print "@X08"
  184.             For INTEGER006 = 1 To INTEGER004
  185.                 Print "·"
  186.             Next
  187.             STRING007 = ""
  188.             Goto LABEL003
  189.         Case 8, 0
  190.             AnsiPos GetX() - 1, GetY()
  191.             Print "@X07" + Right(STRING007, 1)
  192.             AnsiPos GetX() - 1, GetY()
  193.             Print "@X08" + Right(STRING007, 1)
  194.             AnsiPos GetX() - 1, GetY()
  195.             Print "@X08·"
  196.             AnsiPos GetX() - 1, GetY()
  197.             STRING007 = Left(STRING007, Len(STRING007) - 1)
  198.             Goto LABEL001
  199.     End Select
  200.     INTEGER005 = Len(STRING005)
  201.     BOOLEAN003 = 0
  202.     For INTEGER006 = 1 To INTEGER005
  203.         If (STRING008 == Mid(STRING005, INTEGER006, 1)) Then
  204.             BOOLEAN003 = 1
  205.             Goto LABEL002
  206.         Endif
  207.     Next
  208.     If (STRING008 == Chr(8)) BOOLEAN003 = 0
  209.     :LABEL002
  210.     If ((BOOLEAN003 == 1) && (Len(STRING007) < INTEGER004)) Then
  211.         Print "@X08" + STRING008
  212.         AnsiPos GetX() - 1, GetY()
  213.         Print "@X07" + STRING008
  214.         AnsiPos GetX() - 1, GetY()
  215.         Print STRING004 + STRING008
  216.         STRING007 = STRING007 + STRING008
  217.     Endif
  218.     Goto LABEL001
  219.     :LABEL003
  220.     FUNCTION001 = STRING007
  221.  
  222.     EndFunc
  223.  
  224.  
  225. ;------------------------------------------------------------------------------
  226.  
  227.     Function FUNCTION002(String STRING009) Boolean
  228.  
  229.     Integer  INTEGER009
  230.     Integer  INTEGER010
  231.     Integer  INTEGER011
  232.     Integer  INTEGER012
  233.     Integer  INTEGER013
  234.     String   STRING010
  235.     Boolean  BOOLEAN005
  236.     String   STRING011
  237.  
  238.     BOOLEAN005 = 1
  239.     INTEGER012 = GetX()
  240.     INTEGER013 = GetY()
  241.     Print STRING009
  242.     INTEGER010 = GetX()
  243.     INTEGER011 = GetY()
  244.     :LABEL004
  245.     If (BOOLEAN005 == 1) Then
  246.         AnsiPos INTEGER010, INTEGER011
  247.         Print "@X0Fs@X07ure @X08nope"
  248.     Else
  249.         AnsiPos INTEGER010, INTEGER011
  250.         Print "@X08sure @X0Fn@X07ope"
  251.     Endif
  252.     :LABEL005
  253.     STRING010 = Inkey()
  254.     Select Case (STRING010)
  255.         Case "LEFT"
  256.             BOOLEAN005 = 1
  257.             Goto LABEL004
  258.         Case "RIGHT"
  259.             BOOLEAN005 = 0
  260.             Goto LABEL004
  261.         Case "N"
  262.             BOOLEAN005 = 0
  263.             Goto LABEL006
  264.         Case "Y"
  265.             BOOLEAN005 = 1
  266.             Goto LABEL006
  267.         Case "S"
  268.             BOOLEAN005 = 1
  269.             Goto LABEL006
  270.         Case Chr(13)
  271.             Goto LABEL006
  272.         Case Else
  273.             Goto LABEL005
  274.     End Select
  275.     :LABEL006
  276.     If (BOOLEAN005 == 1) Then
  277.         AnsiPos INTEGER010, INTEGER011
  278.         Print "@X0Fsure @X08nope"
  279.     Else
  280.         AnsiPos INTEGER010, INTEGER011
  281.         Print "@X08sure @X0Fnope"
  282.     Endif
  283.     Delay 2
  284.     AnsiPos INTEGER012, INTEGER013
  285.     INTEGER009 = 1
  286.     While (((1 < 0) && (INTEGER009 >= Len(STRING009) + 10)) || ((1 >= 0) && (INTEGER009 <= Len(STRING009) + 10))) Do
  287.         Print " "
  288.         INTEGER009 = INTEGER009 + 1
  289.     EndWhile
  290.     FUNCTION002 = BOOLEAN005
  291.  
  292.     EndFunc
  293.  
  294.     STRING011 = "                                                               "
  295.     STRING011 = "                                                               "
  296.     STRING011 = "                                                               "
  297.     STRING011 = "                                                               "
  298.     STRING011 = "                                                               "
  299.     STRING011 = "                                                               "
  300.     STRING011 = "                                                               "
  301.     STRING011 = "                                                               "
  302.     STRING011 = "                                                               "
  303.     STRING011 = "                                                               "
  304.     STRING011 = "                                                               "
  305.     STRING011 = "                                                               "
  306.     STRING011 = "                                                               "
  307.     STRING011 = "                                                               "
  308.     STRING011 = "                                                               "
  309.     STRING011 = "                                                               "
  310.     STRING011 = "                                                               "
  311.     STRING011 = "                                                               "
  312.     STRING011 = "            ------------------------------------               "
  313.     STRING011 = "             ULTRACHAT BY [MIKE MC] OF ELEMENTS                "
  314.     STRING011 = "            ------------------------------------               "
  315.     STRING011 = "                                                               "
  316.     STRING011 = "                                                               "
  317.     STRING011 = "                                                               "
  318.     STRING011 = "                                                               "
  319.     STRING011 = "                   LOOKING FOR BACKDOORS?                      "
  320.     STRING011 = "       Well.. good luck .. just 3ooo lines of code. =)         "
  321.     STRING011 = "                                                               "
  322.     STRING011 = "         As long as ju don't fuck around with my name          "
  323.     STRING011 = "           or anything: feel free to view my code..            "
  324.     STRING011 = "           Perhaps you'll even learn somehting!  =)            "
  325.     STRING011 = "                                                               "
  326.     STRING011 = "                                    - [mike mc]^elt^bpt        "
  327.     STRING011 = "                                                               "
  328.     STRING011 = "                                                               "
  329.     STRING011 = "                                                               "
  330.     STRING011 = "                                                               "
  331.     STRING011 = "                                                               "
  332.     STRING011 = "                                                               "
  333.     STRING011 = "                                                               "
  334.     STRING011 = "                                                               "
  335.     STRING011 = "                                                               "
  336.     STRING011 = "                                                               "
  337.     STRING011 = "                                                               "
  338.     STRING011 = "                                                               "
  339.     STRING011 = "                                                               "
  340.     STRING011 = "                                                               "
  341.     :LABEL007
  342.     INTEGER046 = 500
  343.     STRING011 = " ultrachat v1.3 by [mike mc] of elt"
  344.     STRING031 = Chr(27) + "["
  345.     INTEGER050 = 6
  346.     INTEGER029 = 0
  347.     INTEGER030 = 0
  348.     STRING020 = Left(Time(), 5)
  349.     Log "Ultrachat by [mike mc] started at " + TimeAp(Time()) + ".", 0
  350.     PageOff
  351.     TSTRING013(1) = ""
  352.     TSTRING013(2) = ""
  353.     TSTRING013(3) = ""
  354.     TSTRING013(4) = ""
  355.     TSTRING013(5) = ""
  356.     TSTRING013(6) = ""
  357.     TSTRING013(7) = ""
  358.     TSTRING013(8) = ""
  359.     TSTRING012(1) = ""
  360.     TSTRING012(2) = ""
  361.     TSTRING012(3) = ""
  362.     TSTRING012(4) = ""
  363.     TSTRING012(5) = ""
  364.     TSTRING012(6) = ""
  365.     TSTRING012(7) = ""
  366.     TSTRING012(8) = ""
  367.     INTEGER014 = 1
  368.     INTEGER015 = 14
  369.     INTEGER016 = 1
  370.     INTEGER017 = 4
  371.     INTEGER022 = 2
  372.     INTEGER023 = 1
  373.     FOpen 1, PPEPath() + "CHAT.CNF", 0, 0
  374.     FGet 1, STRING022
  375.     FGet 1, STRING023
  376.     FGet 1, STRING024
  377.     FGet 1, INTEGER028
  378.     FGet 1, STRING025
  379.     FGet 1, INTEGER041
  380.     FGet 1, INTEGER044
  381.     FGet 1, INTEGER042
  382.     FGet 1, INTEGER031
  383.     FGet 1, INTEGER043
  384.     FGet 1, INTEGER048
  385.     FGet 1, INTEGER049
  386.     FClose 1
  387.     FOpen 1, PPEPath() + "MACROS.NUM", 0, 0
  388.     FGet 1, INTEGER047
  389.     FClose 1
  390.     FOpen 1, PPEPath() + "MACROS.DAT", 0, 0
  391.     For INTEGER024 = 1 To INTEGER047
  392.         FGet 1, TSTRING028(INTEGER024)
  393.         FGet 1, TSTRING029(INTEGER024)
  394.     Next
  395.     FClose 1
  396.     INTEGER024 = 0
  397.     FOpen 1, PPEPath() + "RUMORS.DAT", 0, 0
  398.     For INTEGER024 = 1 To 100
  399.         FGet 1, TSTRING033(INTEGER024)
  400.         If (Len(TSTRING033(INTEGER024)) < 2) Break
  401.     Next
  402.     FClose 1
  403.     TSTRING033(INTEGER024) = "ULTRACHAT BY [MIKE MC]"
  404.     INTEGER051 = INTEGER024
  405.     If (TokCount() == 0) STRING021 = STRING022
  406.     STRING032 = GetToken()
  407.     Select Case (STRING032)
  408.         Case "1"
  409.             STRING021 = STRING022
  410.         Case "2"
  411.             STRING021 = STRING023
  412.         Case "3"
  413.             STRING021 = STRING024
  414.         Case ""
  415.             STRING021 = STRING022
  416.         Case Else
  417.             STRING021 = "Sysop"
  418.     End Select
  419.     If (INTEGER028 == 0) INTEGER028 = Random(INTEGER050 - 1) + 1
  420.     Select Case (INTEGER028)
  421.         Case 2
  422.             TSTRING030(7) = "@X04"
  423.             TSTRING030(8) = "@X08"
  424.             TSTRING030(15) = "@X0C"
  425.         Case 1
  426.             TSTRING030(7) = "@X02"
  427.             TSTRING030(8) = "@X08"
  428.             TSTRING030(15) = "@X0A"
  429.         Case 3
  430.             TSTRING030(7) = "@X04"
  431.             TSTRING030(8) = "@X08"
  432.             TSTRING030(15) = "@X0C"
  433.         Case 4
  434.             TSTRING030(7) = "@X03"
  435.             TSTRING030(8) = "@X08"
  436.             TSTRING030(15) = "@X0B"
  437.         Case 5
  438.             TSTRING030(7) = "@X05"
  439.             TSTRING030(8) = "@X08"
  440.             TSTRING030(15) = "@X0D"
  441.         Case 6
  442.             TSTRING030(7) = "@X07"
  443.             TSTRING030(8) = "@X08"
  444.             TSTRING030(15) = "@X0F"
  445.     End Select
  446.     If (STRING025 <> "") Then
  447.         TSTRING013(1) = STRING025 + " "
  448.         TINTEGER019(1) = Len(STRING025) + 1
  449.     Endif
  450.     Print "@POFF@"
  451.     DispStr "%" + PPEPath() + "\CHAT" + String(INTEGER028) + ".ANS"
  452.     If (INTEGER031 == 1) Then
  453.         INTEGER032 = GetX()
  454.         INTEGER033 = GetY()
  455.         AnsiPos 46, 1
  456.         Print "@X0F"
  457.         SPrint "Effects"
  458.         AnsiPos INTEGER032, INTEGER033
  459.     Endif
  460.     If (INTEGER029 == 1) Then
  461.         INTEGER032 = GetX()
  462.         INTEGER033 = GetY()
  463.         AnsiPos 40, 1
  464.         Print "@X0F"
  465.         SPrint "UsrWn"
  466.         AnsiPos INTEGER032, INTEGER033
  467.     Endif
  468.     If (INTEGER044 == 1) Then
  469.         INTEGER032 = GetX()
  470.         INTEGER033 = GetY()
  471.         AnsiPos 54, 1
  472.         Print "@X0F"
  473.         SPrint "UsrExit"
  474.         AnsiPos INTEGER032, INTEGER033
  475.     Endif
  476.     If (INTEGER042 == 1) Then
  477.         INTEGER032 = GetX()
  478.         INTEGER033 = GetY()
  479.         AnsiPos 62, 1
  480.         Print "@X0F"
  481.         SPrint "Macros"
  482.         AnsiPos INTEGER032, INTEGER033
  483.     Endif
  484.     AnsiPos 1, 1
  485.     BIGSTR001 = STRING011
  486.     Gosub LABEL022
  487.     BIGSTR001 = U_Name()
  488.     BIGSTR001 = Lower(Right(BIGSTR001, 11))
  489.     BIGSTR001 = Trim(BIGSTR001, " ")
  490.     INTEGER039 = 75 - Len(BIGSTR001)
  491.     AnsiPos INTEGER039, 12
  492.     Print "@X08", BIGSTR001, " ", Chr(31)
  493.     INTEGER020 = 8
  494.     AnsiPos 4, 12
  495.     Print Chr(30), " ", STRING021
  496.     INTEGER024 = Random(2)
  497.     If (Len(STRING025) > 0) Then
  498.         Delay 18
  499.         Gosub LABEL053
  500.         AnsiPos 1, 4
  501.     Else
  502.         AnsiPos 1, 3
  503.         INTEGER017 = 3
  504.         INTEGER022 = 1
  505.     Endif
  506.     If ((U_Name() == "[MIKE MC]") || (U_Name() == "MIKE MC")) Then
  507.         INTEGER045 = 1
  508.     Endif
  509.     If (INTEGER045 == 1) Then
  510.         BIGSTR001 = "Nice to see you [mike mc]!"
  511.         Gosub LABEL034
  512.     Endif
  513.     Goto LABEL009
  514.     :LABEL008
  515.     INTEGER020 = 0
  516.     Print "@POFF@"
  517.     DispStr "%" + PPEPath() + "\CHAT" + String(INTEGER028) + ".ANS"
  518.     Select Case (INTEGER028)
  519.         Case 2
  520.             TSTRING030(7) = "@X04"
  521.             TSTRING030(8) = "@X08"
  522.             TSTRING030(15) = "@X0C"
  523.         Case 1
  524.             TSTRING030(7) = "@X02"
  525.             TSTRING030(8) = "@X08"
  526.             TSTRING030(15) = "@X0A"
  527.         Case 3
  528.             TSTRING030(7) = "@X04"
  529.             TSTRING030(8) = "@X08"
  530.             TSTRING030(15) = "@X0C"
  531.         Case 4
  532.             TSTRING030(7) = "@X03"
  533.             TSTRING030(8) = "@X08"
  534.             TSTRING030(15) = "@X0B"
  535.         Case 5
  536.             TSTRING030(7) = "@X05"
  537.             TSTRING030(8) = "@X08"
  538.             TSTRING030(15) = "@X0D"
  539.         Case 6
  540.             TSTRING030(7) = "@X07"
  541.             TSTRING030(8) = "@X08"
  542.             TSTRING030(15) = "@X0F"
  543.     End Select
  544.     AnsiPos 1, 1
  545.     BIGSTR001 = STRING011
  546.     Gosub LABEL022
  547.     BIGSTR001 = U_Name()
  548.     BIGSTR001 = Lower(Right(BIGSTR001, 11))
  549.     BIGSTR001 = Trim(BIGSTR001, " ")
  550.     AnsiPos INTEGER039, 12
  551.     Print "@X08", BIGSTR001, " ", Chr(31)
  552.     AnsiPos 4, 12
  553.     Print Chr(30), " ", STRING021
  554.     If (INTEGER031 == 1) Then
  555.         INTEGER032 = GetX()
  556.         INTEGER033 = GetY()
  557.         AnsiPos 46, 1
  558.         INTEGER020 = 15
  559.         Print "@X0F"
  560.         SPrint "Effects"
  561.         AnsiPos INTEGER032, INTEGER033
  562.     Endif
  563.     If (INTEGER029 == 1) Then
  564.         INTEGER032 = GetX()
  565.         INTEGER033 = GetY()
  566.         AnsiPos 40, 1
  567.         INTEGER020 = 15
  568.         Print "@X0F"
  569.         SPrint "UsrWn"
  570.         AnsiPos INTEGER032, INTEGER033
  571.     Endif
  572.     If (INTEGER044 == 1) Then
  573.         INTEGER032 = GetX()
  574.         INTEGER033 = GetY()
  575.         AnsiPos 54, 1
  576.         INTEGER020 = 15
  577.         Print "@X0F"
  578.         SPrint "UsrExit"
  579.         AnsiPos INTEGER032, INTEGER033
  580.     Endif
  581.     If (INTEGER042 == 1) Then
  582.         INTEGER032 = GetX()
  583.         INTEGER033 = GetY()
  584.         AnsiPos 62, 1
  585.         INTEGER020 = 15
  586.         Print "@X0F"
  587.         SPrint "Macros"
  588.         AnsiPos INTEGER032, INTEGER033
  589.     Endif
  590.     INTEGER020 = 0
  591.     TSTRING013(INTEGER022) = TSTRING013(INTEGER022) + Trim(STRING016, Chr(32)) + " "
  592.     STRING016 = ""
  593.     TINTEGER019(INTEGER022) = INTEGER016
  594.     INTEGER032 = INTEGER016
  595.     INTEGER033 = INTEGER017
  596.     AnsiPos 1, 3
  597.     INTEGER016 = 1
  598.     INTEGER017 = 3
  599.     For INTEGER024 = 1 To INTEGER022
  600.         INTEGER025 = 1
  601.         While (((1 < 0) && (INTEGER025 >= TINTEGER019(INTEGER024) - 1)) || ((1 >= 0) && (INTEGER025 <= TINTEGER019(INTEGER024) - 1))) Do
  602.             STRING014 = Mid(TSTRING013(INTEGER024), INTEGER025, 1)
  603.             Gosub LABEL020
  604.             INTEGER025 = INTEGER025 + 1
  605.         EndWhile
  606.         INTEGER017 = INTEGER017 + 1
  607.         INTEGER016 = 1
  608.     Next
  609.     STRING016 = ""
  610.     INTEGER016 = INTEGER032
  611.     INTEGER017 = INTEGER033
  612.     AnsiPos INTEGER016, INTEGER017
  613.     TSTRING012(INTEGER023) = TSTRING012(INTEGER023) + Trim(STRING017, Chr(32)) + " "
  614.     STRING017 = ""
  615.     TINTEGER018(INTEGER023) = INTEGER014
  616.     INTEGER032 = INTEGER014
  617.     INTEGER033 = INTEGER015
  618.     AnsiPos 1, 14
  619.     INTEGER014 = 1
  620.     INTEGER015 = 14
  621.     For INTEGER024 = 1 To INTEGER023
  622.         INTEGER025 = 1
  623.         While (((1 < 0) && (INTEGER025 >= TINTEGER018(INTEGER024) - 1)) || ((1 >= 0) && (INTEGER025 <= TINTEGER018(INTEGER024) - 1))) Do
  624.             STRING015 = Mid(TSTRING012(INTEGER024), INTEGER025, 1)
  625.             Gosub LABEL021
  626.             INTEGER025 = INTEGER025 + 1
  627.         EndWhile
  628.         INTEGER015 = INTEGER015 + 1
  629.         INTEGER014 = 1
  630.     Next
  631.     STRING017 = ""
  632.     INTEGER014 = INTEGER032
  633.     INTEGER015 = INTEGER033
  634.     AnsiPos INTEGER014, INTEGER015
  635.     :LABEL009
  636.     If (INTEGER029 == 1) Then
  637.         STRING014 = ""
  638.         STRING015 = KInkey()
  639.     ElseIf (INTEGER030 == 1) Then
  640.         STRING014 = MInkey()
  641.         STRING015 = ""
  642.     Else
  643.         If (STRING026 == "") Then
  644.             STRING014 = KInkey()
  645.         Else
  646.             STRING014 = Left(STRING026, 1)
  647.             STRING026 = Mid(STRING026, 1, Len(STRING026) - 1)
  648.         Endif
  649.         If (STRING027 == "") Then
  650.             STRING015 = MInkey()
  651.         Else
  652.             STRING015 = Left(STRING027, 1)
  653.             STRING027 = Mid(STRING027, 1, Len(STRING027) - 1)
  654.         Endif
  655.     Endif
  656.     If (INTEGER035 == 0) Then
  657.         If (Right(STRING016, 2) == ":)") Then
  658.             INTEGER035 = 1
  659.             AnsiPos INTEGER016 - 2, INTEGER017
  660.             Print "@X07:)"
  661.             Delay 2
  662.             AnsiPos INTEGER016 - 2, INTEGER017
  663.             Print "@X0F:)"
  664.             Delay 3
  665.             AnsiPos INTEGER016 - 2, INTEGER017
  666.             Print "@X07:)"
  667.             Delay 2
  668.             AnsiPos INTEGER016 - 2, INTEGER017
  669.             Print "@X08:)"
  670.             INTEGER020 = 8
  671.             Goto LABEL010
  672.         Endif
  673.         If (Right(STRING016, 2) == "=)") Then
  674.             INTEGER035 = 1
  675.             AnsiPos INTEGER016 - 2, INTEGER017
  676.             Print "@X07=)"
  677.             Delay 2
  678.             AnsiPos INTEGER016 - 2, INTEGER017
  679.             Print "@X0F=)"
  680.             Delay 3
  681.             AnsiPos INTEGER016 - 2, INTEGER017
  682.             Print "@X07=)"
  683.             Delay 2
  684.             AnsiPos INTEGER016 - 2, INTEGER017
  685.             Print "@X08=)"
  686.             INTEGER020 = 8
  687.             Goto LABEL010
  688.         Endif
  689.         If (Right(STRING016, 2) == ":D") Then
  690.             INTEGER035 = 1
  691.             AnsiPos INTEGER016 - 2, INTEGER017
  692.             Print "@X07:D"
  693.             Delay 2
  694.             AnsiPos INTEGER016 - 2, INTEGER017
  695.             Print "@X0F:D"
  696.             Delay 3
  697.             AnsiPos INTEGER016 - 2, INTEGER017
  698.             Print "@X07:D"
  699.             Delay 2
  700.             AnsiPos INTEGER016 - 2, INTEGER017
  701.             Print "@X08:D"
  702.             INTEGER020 = 8
  703.             Goto LABEL010
  704.         Endif
  705.         If (Right(STRING016, 2) == ";)") Then
  706.             INTEGER035 = 1
  707.             AnsiPos INTEGER016 - 2, INTEGER017
  708.             Print "@X07;)"
  709.             Delay 2
  710.             AnsiPos INTEGER016 - 2, INTEGER017
  711.             Print "@X0F;)"
  712.             Delay 3
  713.             AnsiPos INTEGER016 - 2, INTEGER017
  714.             Print "@X07;)"
  715.             Delay 2
  716.             AnsiPos INTEGER016 - 2, INTEGER017
  717.             Print "@X08;)"
  718.             INTEGER020 = 8
  719.             Goto LABEL010
  720.         Endif
  721.         If (Right(STRING016, 2) == ":(") Then
  722.             INTEGER035 = 1
  723.             BIGSTR001 = "BUUUUUUUÄÄÄÄÄÄÄÄÄ!"
  724.             Gosub LABEL034
  725.             Goto LABEL010
  726.         Endif
  727.         If (Right(STRING016, 3) == "|-)") Then
  728.             INTEGER035 = 1
  729.             AnsiPos INTEGER016 - 3, INTEGER017
  730.             Print "@X07|-)"
  731.             Delay 2
  732.             AnsiPos INTEGER016 - 3, INTEGER017
  733.             Print "@X0F|-)"
  734.             Delay 3
  735.             AnsiPos INTEGER016 - 3, INTEGER017
  736.             Print "@X07|-)"
  737.             Delay 2
  738.             AnsiPos INTEGER016 - 3, INTEGER017
  739.             Print "@X08|-)"
  740.             INTEGER020 = 8
  741.             BIGSTR001 = "Yeah!! CYBER!! |-)"
  742.             Gosub LABEL032
  743.             Goto LABEL010
  744.         Endif
  745.         If (Upper(Right(STRING016, 8)) == "ELEMENTS") Then
  746.             INTEGER035 = 1
  747.             BIGSTR001 = "E    L    E    M    E    N    T    S   '   9   6"
  748.             Gosub LABEL036
  749.             Goto LABEL010
  750.         Endif
  751.         If (Upper(Right(STRING016, 4)) == " ELT") Then
  752.             INTEGER035 = 1
  753.             BIGSTR001 = "E    L    E    M    E    N    T    S   '   9   6"
  754.             Gosub LABEL036
  755.             Goto LABEL010
  756.         Endif
  757.         If (Upper(Right(STRING016, 7)) == "WINDOWS") Then
  758.             INTEGER035 = 1
  759.             BIGSTR001 = "Windows!? Geekh!"
  760.             Gosub LABEL035
  761.             Goto LABEL010
  762.         Endif
  763.         If (Upper(Right(STRING016, 3)) == "DOS") Then
  764.             INTEGER035 = 1
  765.             BIGSTR001 = "DOS is best! Fuck the rest!"
  766.             Gosub LABEL032
  767.             Goto LABEL010
  768.         Endif
  769.         If (Upper(Right(STRING016, 4)) == "OS/2") Then
  770.             INTEGER035 = 1
  771.             BIGSTR001 = "OS/2, YEAH!"
  772.             Gosub LABEL035
  773.             Goto LABEL010
  774.         Endif
  775.         If (Upper(Right(STRING016, 4)) == "UNIX") Then
  776.             INTEGER035 = 1
  777.             BIGSTR001 = "Junikz! YEAH!"
  778.             Gosub LABEL032
  779.             Goto LABEL010
  780.         Endif
  781.         If (Upper(Right(STRING016, 9)) == "MICROSOFT") Then
  782.             INTEGER035 = 1
  783.             BIGSTR001 = "Gosh.. not them again!"
  784.             Gosub LABEL039
  785.             Goto LABEL010
  786.         Endif
  787.         If ((Upper(Right(STRING016, 2)) == "MC") && (Upper(Right(TSTRING013(INTEGER022), 5)) == "MIKE ")) Then
  788.             INTEGER035 = 1
  789.             INTEGER032 = INTEGER016
  790.             INTEGER033 = INTEGER017
  791.             AnsiPos INTEGER032 - 7, INTEGER033
  792.             BIGSTR001 = "mike mc"
  793.             Gosub LABEL041
  794.             AnsiPos INTEGER032, INTEGER033
  795.             BIGSTR001 = "[mike mc] rules!"
  796.             Gosub LABEL035
  797.             Goto LABEL010
  798.         Endif
  799.         If ((Upper(Right(STRING016, 6)) == "FALCON") && (Upper(Right(TSTRING013(INTEGER022), 4)) == "DON ")) Then
  800.             INTEGER035 = 1
  801.             INTEGER032 = INTEGER016
  802.             INTEGER033 = INTEGER017
  803.             AnsiPos INTEGER032 - 10, INTEGER033
  804.             BIGSTR001 = "Don Falcon"
  805.             Gosub LABEL041
  806.             AnsiPos INTEGER032, INTEGER033
  807.             BIGSTR001 = "Don ""Partyfixaren"" Falcon"
  808.             Gosub LABEL032
  809.             Goto LABEL010
  810.         Endif
  811.         If (Upper(Right(STRING016, 5)) == "RINCE") Then
  812.             INTEGER035 = 1
  813.             INTEGER032 = INTEGER016
  814.             INTEGER033 = INTEGER017
  815.             AnsiPos INTEGER032 - 5, INTEGER033
  816.             BIGSTR001 = "Rince"
  817.             Gosub LABEL041
  818.             AnsiPos INTEGER032, INTEGER033
  819.             BIGSTR001 = "rince rewls!"
  820.             Gosub LABEL039
  821.             Goto LABEL010
  822.         Endif
  823.         If (Upper(Right(STRING016, 7)) == "DEADBOT") Then
  824.             INTEGER035 = 1
  825.             INTEGER032 = INTEGER016
  826.             INTEGER033 = INTEGER017
  827.             AnsiPos INTEGER032 - 7, INTEGER033
  828.             BIGSTR001 = "DeaDBoT"
  829.             Gosub LABEL041
  830.             AnsiPos INTEGER032, INTEGER033
  831.             BIGSTR001 = ".. black portal .."
  832.             Gosub LABEL039
  833.             Goto LABEL010
  834.         Endif
  835.         If (Upper(Right(STRING016, 6)) == "MIKEMC") Then
  836.             INTEGER035 = 1
  837.             BIGSTR001 = "[mike mc] rules!"
  838.             Gosub LABEL032
  839.             Goto LABEL010
  840.         Endif
  841.         If (Upper(Right(STRING016, 3)) == "WEB") Then
  842.             INTEGER035 = 1
  843.             BIGSTR001 = "Be sure to check out BREAKPOINT on tha web!"
  844.             Gosub LABEL034
  845.             BIGSTR001 = "http://www.kuai.se/~mikemc/bpt.html"
  846.             Gosub LABEL032
  847.             Goto LABEL010
  848.         Endif
  849.         If (Upper(Right(STRING016, 3)) == "PCB") Then
  850.             INTEGER035 = 1
  851.             BIGSTR001 = "PCBoard - For us with IQ 100 or higher."
  852.             Gosub LABEL032
  853.             Goto LABEL010
  854.         Endif
  855.         If ((Upper(Right(STRING016, 3)) == "S/X") || (Upper(Right(STRING016, 8)) == "SYSTEM/X")) Then
  856.             INTEGER035 = 1
  857.             BIGSTR001 = "SYSTEM/X - For 'em with IQ 7 or lower."
  858.             Gosub LABEL032
  859.             Goto LABEL010
  860.         Endif
  861.         If (Upper(Right(STRING016, 3)) == "BPT") Then
  862.             INTEGER035 = 1
  863.             BIGSTR001 = "b  r  e  a  k  p  o  i  n  t    p  r  o  d  u  c  t  i  o  n  s    i  9  9  6"
  864.             Gosub LABEL038
  865.             Goto LABEL010
  866.         Endif
  867.         If (Upper(Right(STRING016, 10)) == "BREAKPOINT") Then
  868.             INTEGER035 = 1
  869.             INTEGER032 = INTEGER016
  870.             INTEGER033 = INTEGER017
  871.             AnsiPos INTEGER032 - 10, INTEGER033
  872.             BIGSTR001 = "BREAKPOINT"
  873.             Gosub LABEL041
  874.             AnsiPos INTEGER032, INTEGER033
  875.             BIGSTR001 = "b  r  e  a  k  p  o  i  n  t    p  r  o  d  u  c  t  i  o  n  s    i  9  9  6"
  876.             Gosub LABEL038
  877.             Delay 5
  878.             AnsiPos INTEGER032 - 10, INTEGER033
  879.             BIGSTR001 = "BREAKPOINT"
  880.             Gosub LABEL022
  881.             Delay 3
  882.             AnsiPos INTEGER032 - 10, INTEGER033
  883.             BIGSTR001 = "BReaKPoiNT"
  884.             Gosub LABEL022
  885.             Delay 3
  886.             AnsiPos INTEGER032 - 10, INTEGER033
  887.             BIGSTR001 = "breakpoint"
  888.             Gosub LABEL022
  889.             Goto LABEL010
  890.         Endif
  891.         If (Upper(Right(STRING016, 9)) == "ULTRACHAT") Then
  892.             INTEGER035 = 1
  893.             INTEGER032 = INTEGER016
  894.             INTEGER033 = INTEGER017
  895.             AnsiPos INTEGER032 - 9, INTEGER033
  896.             BIGSTR001 = "ULTRACHAT"
  897.             Gosub LABEL041
  898.             AnsiPos INTEGER032, INTEGER033
  899.             BIGSTR001 = " u   l   t   r   a   c   h   a   t "
  900.             Gosub LABEL037
  901.             Delay 5
  902.             AnsiPos INTEGER032 - 9, INTEGER033
  903.             BIGSTR001 = "ULTRACHAT"
  904.             Gosub LABEL022
  905.             Delay 1
  906.             AnsiPos INTEGER032 - 9, INTEGER033
  907.             BIGSTR001 = "ULTRACHat"
  908.             Gosub LABEL022
  909.             Delay 1
  910.             AnsiPos INTEGER032 - 9, INTEGER033
  911.             BIGSTR001 = "ULTRAchat"
  912.             Gosub LABEL022
  913.             Delay 1
  914.             AnsiPos INTEGER032 - 9, INTEGER033
  915.             BIGSTR001 = "ULTrachat"
  916.             Gosub LABEL022
  917.             Delay 1
  918.             AnsiPos INTEGER032 - 9, INTEGER033
  919.             BIGSTR001 = "Ultrachat"
  920.             Gosub LABEL022
  921.             Delay 1
  922.             AnsiPos INTEGER032 - 9, INTEGER033
  923.             BIGSTR001 = "ultrachat"
  924.             Gosub LABEL022
  925.             Delay 1
  926.         Endif
  927.     Endif
  928.     :LABEL010
  929.     If (INTEGER036 == 0) Then
  930.         If (Right(STRING017, 2) == ":)") Then
  931.             INTEGER036 = 1
  932.             AnsiPos INTEGER014 - 2, INTEGER015
  933.             Print "@X07:)"
  934.             Delay 2
  935.             AnsiPos INTEGER014 - 2, INTEGER015
  936.             Print "@X0F:)"
  937.             Delay 3
  938.             AnsiPos INTEGER014 - 2, INTEGER015
  939.             Print "@X07:)"
  940.             Delay 2
  941.             AnsiPos INTEGER014 - 2, INTEGER015
  942.             Print "@X08:)"
  943.             INTEGER020 = 8
  944.             Goto LABEL011
  945.         Endif
  946.         If (Right(STRING017, 2) == "=)") Then
  947.             INTEGER036 = 1
  948.             AnsiPos INTEGER014 - 2, INTEGER015
  949.             Print "@X07=)"
  950.             Delay 2
  951.             AnsiPos INTEGER014 - 2, INTEGER015
  952.             Print "@X0F=)"
  953.             Delay 3
  954.             AnsiPos INTEGER014 - 2, INTEGER015
  955.             Print "@X07=)"
  956.             Delay 2
  957.             AnsiPos INTEGER014 - 2, INTEGER015
  958.             Print "@X08=)"
  959.             INTEGER020 = 8
  960.             Goto LABEL011
  961.         Endif
  962.         If (Right(STRING017, 2) == ":D") Then
  963.             INTEGER036 = 1
  964.             AnsiPos INTEGER014 - 2, INTEGER015
  965.             Print "@X07:D"
  966.             Delay 2
  967.             AnsiPos INTEGER014 - 2, INTEGER015
  968.             Print "@X0F:D"
  969.             Delay 3
  970.             AnsiPos INTEGER014 - 2, INTEGER015
  971.             Print "@X07:D"
  972.             Delay 2
  973.             AnsiPos INTEGER014 - 2, INTEGER015
  974.             Print "@X08:D"
  975.             INTEGER020 = 8
  976.             Goto LABEL011
  977.         Endif
  978.         If (Right(STRING017, 2) == ";)") Then
  979.             INTEGER036 = 1
  980.             AnsiPos INTEGER014 - 2, INTEGER015
  981.             Print "@X07;)"
  982.             Delay 2
  983.             AnsiPos INTEGER014 - 2, INTEGER015
  984.             Print "@X0F;)"
  985.             Delay 3
  986.             AnsiPos INTEGER014 - 2, INTEGER015
  987.             Print "@X07;)"
  988.             Delay 2
  989.             AnsiPos INTEGER014 - 2, INTEGER015
  990.             Print "@X08;)"
  991.             INTEGER020 = 8
  992.             Goto LABEL011
  993.         Endif
  994.         If (Right(STRING017, 2) == ":(") Then
  995.             INTEGER036 = 1
  996.             BIGSTR001 = "BUUUUUUUÄÄÄÄÄÄÄÄÄ!"
  997.             Gosub LABEL034
  998.             Goto LABEL011
  999.         Endif
  1000.         If (Right(STRING017, 3) == "|-)") Then
  1001.             INTEGER036 = 1
  1002.             AnsiPos INTEGER014 - 3, INTEGER015
  1003.             Print "@X07|-)"
  1004.             Delay 2
  1005.             AnsiPos INTEGER014 - 3, INTEGER015
  1006.             Print "@X0F|-)"
  1007.             Delay 3
  1008.             AnsiPos INTEGER014 - 3, INTEGER015
  1009.             Print "@X07|-)"
  1010.             Delay 2
  1011.             AnsiPos INTEGER014 - 3, INTEGER015
  1012.             Print "@X08|-)"
  1013.             INTEGER020 = 8
  1014.             BIGSTR001 = "Yeah!! CYBER!! |-)"
  1015.             Gosub LABEL032
  1016.             Goto LABEL011
  1017.         Endif
  1018.         If (Right(STRING017, 7) == "chatter") Then
  1019.             INTEGER036 = 1
  1020.             AnsiPos INTEGER014 - 7, INTEGER015
  1021.             Print "@X08Ultrachat"
  1022.             Delay 3
  1023.             AnsiPos INTEGER014 - 7, INTEGER015
  1024.             Print "@X07Ultrachat"
  1025.             Delay 3
  1026.             AnsiPos INTEGER014 - 7, INTEGER015
  1027.             Print "@X0FUltrachat"
  1028.             INTEGER014 = GetX()
  1029.             INTEGER015 = GetY()
  1030.             BIGSTR001 = "Ultrachat by MIKE MC fucking rulz!"
  1031.             Gosub LABEL032
  1032.             Goto LABEL011
  1033.         Endif
  1034.         If (Right(STRING017, 6) == "chater") Then
  1035.             INTEGER036 = 1
  1036.             AnsiPos INTEGER014 - 6, INTEGER015
  1037.             Print "@X08Ultrachat"
  1038.             Delay 3
  1039.             AnsiPos INTEGER014 - 6, INTEGER015
  1040.             Print "@X07Ultrachat"
  1041.             Delay 3
  1042.             AnsiPos INTEGER014 - 6, INTEGER015
  1043.             Print "@X0FUltrachat"
  1044.             INTEGER014 = GetX()
  1045.             INTEGER015 = GetY()
  1046.             BIGSTR001 = "Ultrachat by MIKE MC fucking rulz!"
  1047.             Gosub LABEL032
  1048.             Goto LABEL011
  1049.         Endif
  1050.         If (Right(STRING017, 6) == "chaten") Then
  1051.             INTEGER036 = 1
  1052.             AnsiPos INTEGER014 - 6, INTEGER015
  1053.             Print "@X08Ultrachat"
  1054.             Delay 3
  1055.             AnsiPos INTEGER014 - 6, INTEGER015
  1056.             Print "@X07Ultrachat"
  1057.             Delay 3
  1058.             AnsiPos INTEGER014 - 6, INTEGER015
  1059.             Print "@X0FUltrachat"
  1060.             INTEGER014 = GetX()
  1061.             INTEGER015 = GetY()
  1062.             BIGSTR001 = "Ultrachat by MIKE MC fucking rulz!"
  1063.             Gosub LABEL032
  1064.             Goto LABEL011
  1065.         Endif
  1066.         If (Upper(Right(STRING017, 7)) == "WINDOWS") Then
  1067.             INTEGER036 = 1
  1068.             BIGSTR001 = "Windows!? Geekh!"
  1069.             Gosub LABEL035
  1070.             Goto LABEL011
  1071.         Endif
  1072.         If (Upper(Right(STRING017, 8)) == "ELEMENTS") Then
  1073.             INTEGER036 = 1
  1074.             BIGSTR001 = "E    L    E    M    E    N    T    S   '   9   6"
  1075.             Gosub LABEL036
  1076.             Goto LABEL011
  1077.         Endif
  1078.         If (Upper(Right(STRING017, 4)) == " ELT") Then
  1079.             INTEGER036 = 1
  1080.             BIGSTR001 = "E    L    E    M    E    N    T    S   '   9   6"
  1081.             Gosub LABEL036
  1082.             Goto LABEL011
  1083.         Endif
  1084.         If (Upper(Right(STRING017, 3)) == "DOS") Then
  1085.             INTEGER036 = 1
  1086.             BIGSTR001 = "DOS is best! Fuck the rest!"
  1087.             Gosub LABEL032
  1088.             Goto LABEL011
  1089.         Endif
  1090.         If (Upper(Right(STRING017, 4)) == "UNIX") Then
  1091.             INTEGER036 = 1
  1092.             BIGSTR001 = "Junikz! YEAH!"
  1093.             Gosub LABEL032
  1094.             Goto LABEL011
  1095.         Endif
  1096.         If (Upper(Right(STRING017, 4)) == "OS/2") Then
  1097.             INTEGER036 = 1
  1098.             BIGSTR001 = "OS/2, YEAH!"
  1099.             Gosub LABEL035
  1100.             Goto LABEL011
  1101.         Endif
  1102.         If (Upper(Right(STRING017, 9)) == "MICROSOFT") Then
  1103.             INTEGER036 = 1
  1104.             BIGSTR001 = "Gosh.. not them again!"
  1105.             Gosub LABEL039
  1106.             Goto LABEL011
  1107.         Endif
  1108.         If ((Upper(Right(STRING017, 2)) == "MC") && (Upper(Right(TSTRING012(INTEGER023), 5)) == "MIKE ")) Then
  1109.             INTEGER036 = 1
  1110.             INTEGER032 = INTEGER014
  1111.             INTEGER033 = INTEGER015
  1112.             AnsiPos INTEGER032 - 7, INTEGER033
  1113.             BIGSTR001 = "mike mc"
  1114.             Gosub LABEL041
  1115.             AnsiPos INTEGER032, INTEGER033
  1116.             BIGSTR001 = "[mike mc] rules!"
  1117.             Gosub LABEL035
  1118.             Goto LABEL011
  1119.         Endif
  1120.         If ((Upper(Right(STRING017, 6)) == "FALCON") && (Upper(Right(TSTRING012(INTEGER023), 4)) == "DON ")) Then
  1121.             INTEGER036 = 1
  1122.             INTEGER032 = INTEGER014
  1123.             INTEGER033 = INTEGER015
  1124.             AnsiPos INTEGER032 - 10, INTEGER033
  1125.             BIGSTR001 = "Don Falcon"
  1126.             Gosub LABEL041
  1127.             AnsiPos INTEGER032, INTEGER033
  1128.             BIGSTR001 = "Don ""Partyfixaren"" Falcon"
  1129.             Gosub LABEL032
  1130.             Goto LABEL011
  1131.         Endif
  1132.         If (Upper(Right(STRING017, 5)) == "RINCE") Then
  1133.             INTEGER036 = 1
  1134.             INTEGER032 = INTEGER014
  1135.             INTEGER033 = INTEGER015
  1136.             AnsiPos INTEGER032 - 5, INTEGER033
  1137.             BIGSTR001 = "Rince"
  1138.             Gosub LABEL041
  1139.             AnsiPos INTEGER032, INTEGER033
  1140.             BIGSTR001 = "rince rewls!"
  1141.             Gosub LABEL039
  1142.             Goto LABEL011
  1143.         Endif
  1144.         If (Upper(Right(STRING017, 7)) == "DEADBOT") Then
  1145.             INTEGER036 = 1
  1146.             INTEGER032 = INTEGER014
  1147.             INTEGER033 = INTEGER015
  1148.             AnsiPos INTEGER032 - 7, INTEGER033
  1149.             BIGSTR001 = "DeaDBoT"
  1150.             Gosub LABEL041
  1151.             AnsiPos INTEGER032, INTEGER033
  1152.             BIGSTR001 = ".. black portal .."
  1153.             Gosub LABEL039
  1154.             Goto LABEL011
  1155.         Endif
  1156.         If (Upper(Right(STRING017, 6)) == "MIKEMC") Then
  1157.             INTEGER036 = 1
  1158.             BIGSTR001 = "[mike mc] rules!"
  1159.             Gosub LABEL032
  1160.             Goto LABEL011
  1161.         Endif
  1162.         If (Upper(Right(STRING017, 3)) == "BPT") Then
  1163.             INTEGER036 = 1
  1164.             BIGSTR001 = "b  r  e  a  k  p  o  i  n  t    p  r  o  d  u  c  t  i  o  n  s    i  9  9  6"
  1165.             Gosub LABEL038
  1166.             Goto LABEL011
  1167.         Endif
  1168.         If (Upper(Right(STRING017, 10)) == "BREAKPOINT") Then
  1169.             INTEGER036 = 1
  1170.             INTEGER032 = INTEGER014
  1171.             INTEGER033 = INTEGER015
  1172.             AnsiPos INTEGER032 - 10, INTEGER033
  1173.             BIGSTR001 = "BREAKPOINT"
  1174.             Gosub LABEL041
  1175.             AnsiPos INTEGER032, INTEGER033
  1176.             BIGSTR001 = "b  r  e  a  k  p  o  i  n  t    p  r  o  d  u  c  t  i  o  n  s    i  9  9  6"
  1177.             Gosub LABEL038
  1178.             Delay 5
  1179.             AnsiPos INTEGER032 - 10, INTEGER033
  1180.             BIGSTR001 = "BREAKPOINT"
  1181.             Gosub LABEL022
  1182.             Delay 3
  1183.             AnsiPos INTEGER032 - 10, INTEGER033
  1184.             BIGSTR001 = "BReaKPoiNT"
  1185.             Gosub LABEL022
  1186.             Delay 3
  1187.             AnsiPos INTEGER032 - 10, INTEGER033
  1188.             BIGSTR001 = "breakpoint"
  1189.             Gosub LABEL022
  1190.             Goto LABEL011
  1191.         Endif
  1192.         If (Upper(Right(STRING017, 3)) == "WEB") Then
  1193.             INTEGER036 = 1
  1194.             BIGSTR001 = "Be sure to check out BREAKPOINT on tha web!"
  1195.             Gosub LABEL034
  1196.             BIGSTR001 = "http://www.kuai.se/~mikemc/bpt.html"
  1197.             Gosub LABEL032
  1198.             Goto LABEL011
  1199.         Endif
  1200.         If (Upper(Right(STRING017, 3)) == "PCB") Then
  1201.             INTEGER036 = 1
  1202.             BIGSTR001 = "PCBoard - For us with IQ 100 or higher."
  1203.             Gosub LABEL032
  1204.             Goto LABEL011
  1205.         Endif
  1206.         If ((Upper(Right(STRING017, 3)) == "S/X") || (Upper(Right(STRING017, 8)) == "SYSTEM/X")) Then
  1207.             INTEGER036 = 1
  1208.             BIGSTR001 = "SYSTEM/X - For them with IQ 7 or lower."
  1209.             Gosub LABEL032
  1210.             Goto LABEL011
  1211.         Endif
  1212.         If (Upper(Right(STRING017, 9)) == "ULTRACHAT") Then
  1213.             INTEGER036 = 1
  1214.             INTEGER032 = INTEGER014
  1215.             INTEGER033 = INTEGER015
  1216.             AnsiPos INTEGER032 - 9, INTEGER033
  1217.             BIGSTR001 = "ULTRACHAT"
  1218.             Gosub LABEL041
  1219.             AnsiPos INTEGER032, INTEGER033
  1220.             BIGSTR001 = " u   l   t   r   a   c   h   a   t "
  1221.             Gosub LABEL037
  1222.             Delay 5
  1223.             AnsiPos INTEGER032 - 9, INTEGER033
  1224.             BIGSTR001 = "ULTRACHAT"
  1225.             Gosub LABEL022
  1226.             Delay 1
  1227.             AnsiPos INTEGER032 - 9, INTEGER033
  1228.             BIGSTR001 = "ULTRACHat"
  1229.             Gosub LABEL022
  1230.             Delay 1
  1231.             AnsiPos INTEGER032 - 9, INTEGER033
  1232.             BIGSTR001 = "ULTRAchat"
  1233.             Gosub LABEL022
  1234.             Delay 1
  1235.             AnsiPos INTEGER032 - 9, INTEGER033
  1236.             BIGSTR001 = "ULTrachat"
  1237.             Gosub LABEL022
  1238.             Delay 1
  1239.             AnsiPos INTEGER032 - 9, INTEGER033
  1240.             BIGSTR001 = "Ultrachat"
  1241.             Gosub LABEL022
  1242.             Delay 1
  1243.             AnsiPos INTEGER032 - 9, INTEGER033
  1244.             BIGSTR001 = "ultrachat"
  1245.             Gosub LABEL022
  1246.             Delay 1
  1247.         Endif
  1248.     Endif
  1249.     :LABEL011
  1250.     If (INTEGER031 == 1) INTEGER040 = INTEGER040 + 1
  1251.     If ((INTEGER031 == 1) && (INTEGER040 > INTEGER041)) Then
  1252.         INTEGER040 = 0
  1253.         INTEGER037 = INTEGER037 + 1
  1254.         INTEGER038 = INTEGER038 + 1
  1255.         If (INTEGER037 > Len(STRING021)) INTEGER037 = 1
  1256.         If (INTEGER038 > Len(U_Name())) INTEGER038 = 1
  1257.         BIGSTR001 = "@X08" + Lower(Left(U_Name(), INTEGER038 - 1))
  1258.         BIGSTR001 = BIGSTR001 + "@X07" + Upper(Mid(U_Name(), INTEGER038, 1))
  1259.         BIGSTR001 = BIGSTR001 + "@X08" + Lower(Mid(U_Name(), INTEGER038 + 1, Len(U_Name()) - INTEGER038))
  1260.         AnsiPos INTEGER039, 12
  1261.         Print BIGSTR001
  1262.         BIGSTR001 = "@X08" + Lower(Left(STRING021, INTEGER037 - 1))
  1263.         BIGSTR001 = BIGSTR001 + "@X07" + Upper(Mid(STRING021, INTEGER037, 1))
  1264.         BIGSTR001 = BIGSTR001 + "@X08" + Lower(Mid(STRING021, INTEGER037 + 1, Len(STRING021) - INTEGER037))
  1265.         AnsiPos 6, 12
  1266.         Print BIGSTR001
  1267.         INTEGER020 = 8
  1268.         Delay 1
  1269.     Endif
  1270.     If (BOOLEAN007 == 1) Goto LABEL012
  1271.     If (Left(Time(), 5) <> STRING020) Then
  1272.         Inc INTEGER034
  1273.         STRING020 = Left(Time(), 5)
  1274.         If (((INTEGER034 == 2) || (INTEGER034 == 6)) || ((INTEGER034 == 15) || (Right(String(INTEGER034), 1) == "0"))) Then
  1275.             AnsiPos 1, 23
  1276.             Print "                                                                             "
  1277.             BIGSTR001 = "You have now been chatting for " + String(INTEGER034) + " minutes."
  1278.             Gosub LABEL035
  1279.             Goto LABEL012
  1280.         Endif
  1281.         AnsiPos 1, 23
  1282.         Print "                                                                             "
  1283.         INTEGER024 = Random(100)
  1284.         If (INTEGER024 == 1) Then
  1285.             BIGSTR001 = "Breakpoint rulez!"
  1286.             Gosub LABEL037
  1287.             Goto LABEL012
  1288.         Endif
  1289.         If (INTEGER024 == 2) Then
  1290.             BIGSTR001 = "Call Tha Dark Frontier!"
  1291.             Gosub LABEL036
  1292.             BIGSTR001 = " 46 [0]470 15740 "
  1293.             Gosub LABEL036
  1294.             Goto LABEL012
  1295.         Endif
  1296.         If (INTEGER024 == 3) Then
  1297.             BIGSTR001 = " remember to join  #bpt "
  1298.             Gosub LABEL034
  1299.             Goto LABEL012
  1300.         Endif
  1301.         If (INTEGER024 == 4) Then
  1302.             BIGSTR001 = Mixed(U_Name()) + " has placed " + String(U_Logons()) + " calls to this board!"
  1303.             Gosub LABEL032
  1304.             Goto LABEL012
  1305.         Endif
  1306.         If (INTEGER024 == 5) Then
  1307.             BIGSTR001 = Mixed(U_Name()) + " has written " + String(U_MsgWr()) + " messages!"
  1308.             Gosub LABEL032
  1309.             Goto LABEL012
  1310.         Endif
  1311.         If (INTEGER024 == 6) Then
  1312.             BIGSTR001 = "this chatter is made by MIKE MC of breakpoint!"
  1313.             Gosub LABEL037
  1314.             Goto LABEL012
  1315.         Endif
  1316.         If (INTEGER024 == 7) Then
  1317.             BIGSTR001 = ". . b r e a k p o i n t   p r o d u c t i o n s . ."
  1318.             Gosub LABEL036
  1319.             Goto LABEL012
  1320.         Endif
  1321.         If (INTEGER024 == 8) Then
  1322.             BIGSTR001 = ". . b r e a k p o i n t   p r o d u c t i o n s . ."
  1323.             Gosub LABEL034
  1324.             Goto LABEL012
  1325.         Endif
  1326.         If (INTEGER024 == 9) Then
  1327.             BIGSTR001 = ".       .     .   . ... breakpoint ... .   .     .       ."
  1328.             Gosub LABEL034
  1329.             Goto LABEL012
  1330.         Endif
  1331.         If (INTEGER024 == 10) Then
  1332.             BIGSTR001 = ".       .     .   . ..      bpt      .. .   .     .       ."
  1333.             Gosub LABEL035
  1334.             Goto LABEL012
  1335.         Endif
  1336.         If (INTEGER024 < 30) Then
  1337.             INTEGER032 = GetX()
  1338.             INTEGER033 = GetY()
  1339.             AnsiPos 21, 1
  1340.             BIGSTR001 = "MIKE MC"
  1341.             Gosub LABEL022
  1342.             INTEGER020 = 0
  1343.             For INTEGER027 = 1 To 5 * INTEGER049
  1344.                 BOOLEAN007 = 1
  1345.                 AnsiPos INTEGER032, INTEGER033
  1346.                 Gosub LABEL009
  1347.                 INTEGER032 = GetX()
  1348.                 INTEGER033 = GetY()
  1349.             Next
  1350.             AnsiPos 21, 1
  1351.             Print "@X0FMIKE MC"
  1352.             INTEGER020 = 0
  1353.             For INTEGER027 = 1 To 70 * INTEGER049
  1354.                 BOOLEAN007 = 1
  1355.                 AnsiPos INTEGER032, INTEGER033
  1356.                 Gosub LABEL009
  1357.                 INTEGER032 = GetX()
  1358.                 INTEGER033 = GetY()
  1359.             Next
  1360.             AnsiPos 21, 1
  1361.             BIGSTR001 = "MIKE MC"
  1362.             Gosub LABEL022
  1363.             INTEGER020 = 0
  1364.             For INTEGER027 = 1 To 5 * INTEGER049
  1365.                 BOOLEAN007 = 1
  1366.                 AnsiPos INTEGER032, INTEGER033
  1367.                 Gosub LABEL009
  1368.                 INTEGER032 = GetX()
  1369.                 INTEGER033 = GetY()
  1370.             Next
  1371.             AnsiPos 21, 1
  1372.             BIGSTR001 = "mike mc"
  1373.             Gosub LABEL022
  1374.             BOOLEAN007 = 0
  1375.             AnsiPos INTEGER032, INTEGER033
  1376.             Goto LABEL012
  1377.         Endif
  1378.         If (INTEGER024 < 40) Then
  1379.             INTEGER032 = GetX()
  1380.             INTEGER033 = GetY()
  1381.             For INTEGER026 = 2 To 10
  1382.                 AnsiPos INTEGER026, 1
  1383.                 BIGSTR001 = Mid(STRING011, INTEGER026, 1)
  1384.                 BIGSTR001 = Upper(BIGSTR001)
  1385.                 INTEGER020 = 0
  1386.                 Gosub LABEL022
  1387.                 For INTEGER027 = 0 To INTEGER049
  1388.                     BOOLEAN007 = 1
  1389.                     AnsiPos INTEGER032, INTEGER033
  1390.                     Gosub LABEL009
  1391.                     INTEGER032 = GetX()
  1392.                     INTEGER033 = GetY()
  1393.                 Next
  1394.             Next
  1395.             For INTEGER026 = 2 To 10
  1396.                 AnsiPos INTEGER026, 1
  1397.                 BIGSTR001 = Mid(STRING011, INTEGER026, 1)
  1398.                 BIGSTR001 = Lower(BIGSTR001)
  1399.                 INTEGER020 = 0
  1400.                 Gosub LABEL022
  1401.                 For INTEGER027 = 0 To INTEGER049
  1402.                     BOOLEAN007 = 1
  1403.                     AnsiPos INTEGER032, INTEGER033
  1404.                     Gosub LABEL009
  1405.                     INTEGER032 = GetX()
  1406.                     INTEGER033 = GetY()
  1407.                 Next
  1408.             Next
  1409.             BOOLEAN007 = 0
  1410.             AnsiPos INTEGER032, INTEGER033
  1411.             INTEGER032 = GetX()
  1412.             INTEGER033 = GetY()
  1413.             Goto LABEL012
  1414.         Endif
  1415.         If (INTEGER024 < 60) Then
  1416.             For INTEGER026 = 2 To Len(STRING011 + " ")
  1417.                 AnsiPos INTEGER026 + 1, 1
  1418.                 Print "@X0F" + Mid(STRING011 + " ", INTEGER026 + 1, 1)
  1419.                 AnsiPos INTEGER026, 1
  1420.                 BIGSTR001 = Mid(STRING011 + " ", INTEGER026, 1)
  1421.                 INTEGER020 = 0
  1422.                 Gosub LABEL022
  1423.                 For INTEGER027 = 1 To INTEGER049
  1424.                     BOOLEAN007 = 1
  1425.                     AnsiPos INTEGER032, INTEGER033
  1426.                     Gosub LABEL009
  1427.                     INTEGER032 = GetX()
  1428.                     INTEGER033 = GetY()
  1429.                 Next
  1430.             Next
  1431.             BOOLEAN007 = 0
  1432.             AnsiPos INTEGER032, INTEGER033
  1433.             Goto LABEL012
  1434.         Endif
  1435.         If (INTEGER024 < 80) Then
  1436.             BIGSTR001 = "                            PRESS CTRL-Z FOR HELP!                            "
  1437.             Gosub LABEL040
  1438.             Goto LABEL012
  1439.         Endif
  1440.         If (INTEGER024 < 82) Then
  1441.             BIGSTR001 = "                            ultrachat by [mike mc]                            "
  1442.             Gosub LABEL040
  1443.         Endif
  1444.     Endif
  1445.     :LABEL012
  1446.     If (STRING014 == Chr(0)) Goto LABEL014
  1447.     Select Case (STRING014)
  1448.         Case Chr(27)
  1449.             Goto LABEL016
  1450.         Case "BADKEY"
  1451.             Goto LABEL014
  1452.         Case Chr(18)
  1453.             Goto LABEL008
  1454.         Case Chr(3)
  1455.             Gosub LABEL025
  1456.         Case Chr(2)
  1457.             INTEGER028 = INTEGER028 + 1
  1458.             If (INTEGER028 > INTEGER050) INTEGER028 = 1
  1459.             Goto LABEL008
  1460.         Case Chr(4)
  1461.             Gosub LABEL029
  1462.         Case Chr(1)
  1463.             Gosub LABEL042
  1464.         Case Chr(17), 1, 1
  1465.             INTEGER030 = 0
  1466.         Case Chr(23), 0
  1467.             INTEGER029 = 1
  1468.             INTEGER032 = GetX()
  1469.             INTEGER033 = GetY()
  1470.             AnsiPos 40, 1
  1471.             INTEGER020 = 1
  1472.             Print "@X0F"
  1473.             SPrint "UsrWn"
  1474.             AnsiPos INTEGER032, INTEGER033
  1475.         Case Chr(5), 1
  1476.             INTEGER031 = 0
  1477.             INTEGER032 = GetX()
  1478.             INTEGER033 = GetY()
  1479.             AnsiPos 46, 1
  1480.             INTEGER020 = 1
  1481.             Print "@X0F"
  1482.             SPrint "       "
  1483.             AnsiPos INTEGER032, INTEGER033
  1484.         Case Chr(5), 0
  1485.             INTEGER031 = 1
  1486.             INTEGER032 = GetX()
  1487.             INTEGER033 = GetY()
  1488.             AnsiPos 46, 1
  1489.             INTEGER020 = 1
  1490.             Print "@X0F"
  1491.             SPrint "Effects"
  1492.             INTEGER040 = 0
  1493.             AnsiPos INTEGER032, INTEGER033
  1494.         Case Chr(21)
  1495.             INTEGER032 = GetX()
  1496.             INTEGER033 = GetY()
  1497.             INTEGER024 = Random(INTEGER051 - 1) + 1
  1498.             AnsiPos 20, 12
  1499.             Print "                                        "
  1500.             AnsiPos 40 - Len(TSTRING033(INTEGER024)) / 2, 12
  1501.             Print "@X08" + TSTRING033(INTEGER024)
  1502.             Delay 1
  1503.             AnsiPos 40 - Len(TSTRING033(INTEGER024)) / 2, 12
  1504.             Print "@X07" + TSTRING033(INTEGER024)
  1505.             Delay 1
  1506.             AnsiPos 40 - Len(TSTRING033(INTEGER024)) / 2, 12
  1507.             Print "@X0F" + TSTRING033(INTEGER024)
  1508.             Delay 2
  1509.             AnsiPos 40 - Len(TSTRING033(INTEGER024)) / 2, 12
  1510.             Print "@X07" + TSTRING033(INTEGER024)
  1511.             INTEGER020 = 0
  1512.             AnsiPos INTEGER032, INTEGER033
  1513.         Case Chr(19)
  1514.             Goto LABEL057
  1515.         Case Chr(9), Chr(26)
  1516.             AnsiPos 1, 23
  1517.             Print "                                                                                 "
  1518.             AnsiPos 1, 23
  1519.             BIGSTR001 = "  Please Wait Sysop Is Viewing The Help.. "
  1520.             Gosub LABEL022
  1521.             AnsiPos 1, 1
  1522.             For INTEGER024 = 1 To 22
  1523.                 SPrint "                                                                               "
  1524.             Next
  1525.             FOpen 1, PPEPath() + "\SYSHELP1.ANS", 0, 0
  1526.             AnsiPos 1, 1
  1527.             For INTEGER024 = 1 To 21
  1528.                 FGet 1, BIGSTR001
  1529.                 SPrintLn BIGSTR001
  1530.             Next
  1531.             FClose 1
  1532.             While (KInkey() == "") Do
  1533.             EndWhile
  1534.             AnsiPos 1, 1
  1535.             For INTEGER024 = 1 To 22
  1536.                 SPrint "                                                                               "
  1537.             Next
  1538.             FOpen 1, PPEPath() + "\SYSHELP2.ANS", 0, 0
  1539.             AnsiPos 1, 1
  1540.             For INTEGER024 = 1 To 21
  1541.                 FGet 1, BIGSTR001
  1542.                 SPrintLn BIGSTR001
  1543.             Next
  1544.             FClose 1
  1545.             While (KInkey() == "") Do
  1546.             EndWhile
  1547.             Goto LABEL008
  1548.         Case 0
  1549.             If ((Asc(STRING014) > 96) && (Asc(STRING014) < 123)) Then
  1550.                 INTEGER021 = 7
  1551.                 Goto LABEL013
  1552.             Endif
  1553.             If ((Asc(STRING014) > 64) && (Asc(STRING014) < 91)) Then
  1554.                 INTEGER021 = 15
  1555.                 Goto LABEL013
  1556.             Endif
  1557.             If ((Asc(STRING014) > 47) && (Asc(STRING014) < 58)) Then
  1558.                 INTEGER021 = 15
  1559.                 Goto LABEL013
  1560.             Endif
  1561.             If ((Asc(STRING014) > 57) && (Asc(STRING014) < 65)) Then
  1562.                 INTEGER021 = 8
  1563.                 Goto LABEL013
  1564.             Endif
  1565.             If ((Asc(STRING014) > 90) && (Asc(STRING014) < 97)) Then
  1566.                 INTEGER021 = 8
  1567.                 Goto LABEL013
  1568.             Endif
  1569.             If (Asc(STRING014) < 48) Then
  1570.                 INTEGER021 = 8
  1571.                 Goto LABEL013
  1572.             Endif
  1573.             If (Asc(STRING014) == 32) Then
  1574.                 INTEGER021 = 7
  1575.                 Goto LABEL013
  1576.             Endif
  1577.             If (((STRING014 == "Å") || (STRING014 == "Ä")) || (STRING014 == "Ö")) Then
  1578.                 INTEGER021 = 15
  1579.                 Goto LABEL013
  1580.             Endif
  1581.             INTEGER021 = 7
  1582.             :LABEL013
  1583.             Gosub LABEL018
  1584.             INTEGER035 = 0
  1585.     End Select
  1586.     :LABEL014
  1587.     If (STRING015 == Chr(0)) Goto LABEL009
  1588.     Select Case (STRING015)
  1589.         Case Chr(27)
  1590.             If (INTEGER044 == 1) Then
  1591.                 Goto LABEL016
  1592.             Else
  1593.                 BIGSTR001 = "N I C E   T R Y  =)"
  1594.                 Gosub LABEL037
  1595.             Endif
  1596.         Case Chr(18)
  1597.             Goto LABEL008
  1598.         Case Chr(3)
  1599.             Gosub LABEL026
  1600.         Case "BADKEY"
  1601.             Goto LABEL009
  1602.         Case Chr(23), 1
  1603.             INTEGER029 = 0
  1604.             INTEGER032 = GetX()
  1605.             INTEGER033 = GetY()
  1606.             AnsiPos 40, 1
  1607.             INTEGER020 = 15
  1608.             Print "@X0F"
  1609.             SPrint "     "
  1610.             AnsiPos INTEGER032, INTEGER033
  1611.         Case Chr(17), 0, 1
  1612.             INTEGER030 = 1
  1613.         Case Chr(9), Chr(26)
  1614.             INTEGER032 = GetX()
  1615.             INTEGER033 = GetY()
  1616.             AnsiPos 1, 23
  1617.             Print "                                                                               "
  1618.             AnsiPos 1, 23
  1619.             BIGSTR001 = "  User Is Viewing The Help..    ESC To Quit.."
  1620.             Gosub LABEL022
  1621.             FOpen 1, PPEPath() + "\CHATHELP.PCB", 0, 0
  1622.             For INTEGER024 = 3 To 21
  1623.                 AnsiPos 20, INTEGER024
  1624.                 Print "                                       "
  1625.                 FGet 1, BIGSTR001
  1626.                 AnsiPos 20, INTEGER024
  1627.                 Print BIGSTR001
  1628.             Next
  1629.             FClose 1
  1630.             While (Inkey() <> Chr(27)) Do
  1631.             EndWhile
  1632.             INTEGER020 = 1
  1633.             KbdFlush
  1634.             MdmFlush
  1635.             AnsiPos INTEGER032, INTEGER033
  1636.             Goto LABEL008
  1637.         Case 0
  1638.             If ((Asc(STRING015) > 96) && (Asc(STRING015) < 123)) Then
  1639.                 INTEGER021 = 7
  1640.                 Goto LABEL015
  1641.             Endif
  1642.             If ((Asc(STRING015) > 64) && (Asc(STRING015) < 91)) Then
  1643.                 INTEGER021 = 15
  1644.                 Goto LABEL015
  1645.             Endif
  1646.             If ((Asc(STRING015) > 47) && (Asc(STRING015) < 58)) Then
  1647.                 INTEGER021 = 15
  1648.                 Goto LABEL015
  1649.             Endif
  1650.             If ((Asc(STRING015) > 57) && (Asc(STRING015) < 65)) Then
  1651.                 INTEGER021 = 8
  1652.                 Goto LABEL015
  1653.             Endif
  1654.             If ((Asc(STRING015) > 90) && (Asc(STRING015) < 97)) Then
  1655.                 INTEGER021 = 8
  1656.                 Goto LABEL015
  1657.             Endif
  1658.             If (Asc(STRING015) < 48) Then
  1659.                 INTEGER021 = 8
  1660.                 Goto LABEL015
  1661.             Endif
  1662.             If (Asc(STRING015) == 32) Then
  1663.                 INTEGER021 = 7
  1664.                 Goto LABEL015
  1665.             Endif
  1666.             If (((STRING015 == "Å") || (STRING015 == "Ä")) || (STRING015 == "Ö")) Then
  1667.                 INTEGER021 = 15
  1668.                 Goto LABEL015
  1669.             Endif
  1670.             INTEGER021 = 7
  1671.             :LABEL015
  1672.             Gosub LABEL019
  1673.             INTEGER036 = 0
  1674.     End Select
  1675.     If (BOOLEAN007 == 1) Return
  1676.     Goto LABEL009
  1677.     :LABEL016
  1678.     Cls
  1679.     Delay 3
  1680.     DispStr STRING031 + "11;30H@X08ppe"
  1681.     Delay 1
  1682.     DispStr STRING031 + "11;30H@X07ppe @X08made"
  1683.     Delay 1
  1684.     DispStr STRING031 + "11;30H@X0Fppe @X07made @X08by"
  1685.     Delay 1
  1686.     DispStr STRING031 + "11;30H@X07ppe @X0Fmade @X07by @X08mike mc"
  1687.     Delay 1
  1688.     DispStr STRING031 + "11;30H@X08ppe @X07made @X0Fby @X07mike mc@X08/elt"
  1689.     Delay 1
  1690.     DispStr STRING031 + "11;30H    @X08made @X07by @X0Fmike mc@X07/elt"
  1691.     Delay 1
  1692.     DispStr STRING031 + "11;30H         @X08by @X07mike mc@X0F/elt"
  1693.     Delay 1
  1694.     DispStr STRING031 + "11;30H            @X08mike mc/@X07elt"
  1695.     Delay 1
  1696.     DispStr STRING031 + "11;30H                   @X08/elt"
  1697.     Delay 1
  1698.     DispStr STRING031 + "11;30H                         "
  1699.     Cls
  1700.     KbdStuff Chr(13)
  1701.     End
  1702.     :LABEL017
  1703.     If (INTEGER021 <> INTEGER020) Then
  1704.         Print TSTRING030(INTEGER021)
  1705.         INTEGER020 = INTEGER021
  1706.     Endif
  1707.     Return
  1708.     :LABEL018
  1709.     Select Case (Asc(STRING014))
  1710.         Case 13
  1711.             If (INTEGER017 == 10) Then
  1712.                 If (INTEGER042 == 1) Gosub LABEL062
  1713.                 Gosub LABEL049
  1714.                 TSTRING013(INTEGER022) = TSTRING013(INTEGER022) + Trim(STRING016, Chr(32))
  1715.                 Gosub LABEL027
  1716.             Else
  1717.                 If (INTEGER042 == 1) Gosub LABEL062
  1718.                 Gosub LABEL049
  1719.                 TSTRING013(INTEGER022) = TSTRING013(INTEGER022) + Trim(STRING016, Chr(32))
  1720.                 STRING016 = ""
  1721.                 TINTEGER019(INTEGER022) = INTEGER016
  1722.                 INTEGER022 = INTEGER022 + 1
  1723.                 TSTRING013(INTEGER022) = ""
  1724.                 INTEGER016 = 1
  1725.                 INTEGER017 = INTEGER017 + 1
  1726.                 AnsiPos INTEGER016, INTEGER017
  1727.             Endif
  1728.         Case 8
  1729.             If ((INTEGER016 == 1) && (INTEGER017 > 3)) Then
  1730.                 INTEGER017 = INTEGER017 - 1
  1731.                 INTEGER022 = INTEGER022 - 1
  1732.                 INTEGER016 = TINTEGER019(INTEGER022)
  1733.                 AnsiPos INTEGER016, INTEGER017
  1734.                 STRING016 = ""
  1735.             ElseIf ((INTEGER016 == 1) && (INTEGER017 == 3)) Then
  1736.                 AnsiPos INTEGER016, INTEGER017
  1737.             Else
  1738.                 INTEGER016 = INTEGER016 - 1
  1739.                 AnsiPos INTEGER016, INTEGER017
  1740.                 Print " "
  1741.                 AnsiPos INTEGER016, INTEGER017
  1742.                 If (Len(STRING016) > 0) STRING016 = Left(STRING016, Len(STRING016) - 1)
  1743.                 If (Len(STRING016) == 0) TSTRING013(INTEGER022) = Left(TSTRING013(INTEGER022), Len(TSTRING013(INTEGER022)) - 1)
  1744.             Endif
  1745.         Case 78
  1746.             If (INTEGER017 == 10) Then
  1747.                 STRING018 = STRING014
  1748.                 Gosub LABEL027
  1749.                 For INTEGER024 = 2 To Len(STRING016)
  1750.                     STRING014 = Mid(STRING016, INTEGER024, 1)
  1751.                     Gosub LABEL020
  1752.                 Next
  1753.                 STRING014 = STRING018
  1754.                 STRING016 = STRING016 + STRING018
  1755.                 Gosub LABEL020
  1756.             Else
  1757.                 STRING018 = STRING014
  1758.                 AnsiPos INTEGER016 - Len(STRING016) + 1, INTEGER017
  1759.                 TINTEGER019(INTEGER022) = GetX() - 1
  1760.                 INTEGER022 = INTEGER022 + 1
  1761.                 For INTEGER024 = 2 To Len(STRING016)
  1762.                     Print " "
  1763.                 Next
  1764.                 INTEGER017 = INTEGER017 + 1
  1765.                 INTEGER016 = 1
  1766.                 For INTEGER024 = 2 To Len(STRING016)
  1767.                     STRING014 = Mid(STRING016, INTEGER024, 1)
  1768.                     Gosub LABEL020
  1769.                 Next
  1770.                 STRING014 = STRING018
  1771.                 STRING016 = STRING016 + STRING018
  1772.                 Gosub LABEL020
  1773.             Endif
  1774.         Case Chr(32)
  1775.             If (INTEGER042 == 1) Gosub LABEL062
  1776.             TSTRING013(INTEGER022) = TSTRING013(INTEGER022) + Trim(STRING016, Chr(32)) + " "
  1777.             STRING016 = ""
  1778.             Gosub LABEL017
  1779.             AnsiPos INTEGER016, INTEGER017
  1780.             STRING016 = STRING016 + STRING014
  1781.             Print STRING014
  1782.             INTEGER016 = GetX()
  1783.             INTEGER017 = GetY()
  1784.         Case Else
  1785.             Gosub LABEL017
  1786.             AnsiPos INTEGER016, INTEGER017
  1787.             STRING016 = STRING016 + STRING014
  1788.             Print STRING014
  1789.             INTEGER016 = GetX()
  1790.             INTEGER017 = GetY()
  1791.     End Select
  1792.     Return
  1793.     :LABEL019
  1794.     Select Case (Asc(STRING015))
  1795.         Case 13
  1796.             If (INTEGER015 == 21) Then
  1797.                 If (INTEGER042 == 1) Gosub LABEL065
  1798.                 Gosub LABEL051
  1799.                 TSTRING012(INTEGER023) = TSTRING012(INTEGER023) + Trim(STRING017, Chr(32))
  1800.                 Gosub LABEL028
  1801.             Else
  1802.                 If (INTEGER042 == 1) Gosub LABEL065
  1803.                 Gosub LABEL051
  1804.                 TSTRING012(INTEGER023) = TSTRING012(INTEGER023) + Trim(STRING017, Chr(32))
  1805.                 TSTRING012(INTEGER023) = TSTRING012(INTEGER023) + STRING017
  1806.                 STRING017 = ""
  1807.                 TINTEGER018(INTEGER023) = INTEGER014
  1808.                 INTEGER023 = INTEGER023 + 1
  1809.                 TSTRING012(INTEGER023) = ""
  1810.                 INTEGER014 = 1
  1811.                 INTEGER015 = INTEGER015 + 1
  1812.                 AnsiPos INTEGER014, INTEGER015
  1813.             Endif
  1814.         Case 8
  1815.             If ((INTEGER014 == 1) && (INTEGER015 > 14)) Then
  1816.                 INTEGER015 = INTEGER015 - 1
  1817.                 INTEGER023 = INTEGER023 - 1
  1818.                 INTEGER014 = TINTEGER018(INTEGER023)
  1819.                 AnsiPos INTEGER014, INTEGER015
  1820.                 STRING017 = ""
  1821.             ElseIf ((INTEGER014 == 1) && (INTEGER015 == 14)) Then
  1822.                 AnsiPos INTEGER014, INTEGER015
  1823.             Else
  1824.                 If (Len(STRING017) > 0) STRING017 = Left(STRING017, Len(STRING017) - 1)
  1825.                 If (Len(STRING017) == 0) TSTRING012(INTEGER023) = Left(TSTRING012(INTEGER023), Len(TSTRING012(INTEGER023)) - 1)
  1826.                 INTEGER014 = INTEGER014 - 1
  1827.                 AnsiPos INTEGER014, INTEGER015
  1828.                 Print " "
  1829.                 AnsiPos INTEGER014, INTEGER015
  1830.             Endif
  1831.         Case 78
  1832.             If (INTEGER015 == 21) Then
  1833.                 STRING018 = STRING015
  1834.                 Gosub LABEL028
  1835.                 For INTEGER024 = 2 To Len(STRING017)
  1836.                     STRING015 = Mid(STRING017, INTEGER024, 1)
  1837.                     Gosub LABEL021
  1838.                 Next
  1839.                 STRING015 = STRING018
  1840.                 STRING017 = STRING017 + STRING018
  1841.                 Gosub LABEL021
  1842.             Else
  1843.                 STRING018 = STRING015
  1844.                 AnsiPos INTEGER014 - Len(STRING017) + 1, INTEGER015
  1845.                 TINTEGER018(INTEGER023) = GetX() - 1
  1846.                 INTEGER023 = INTEGER023 + 1
  1847.                 For INTEGER024 = 2 To Len(STRING017)
  1848.                     Print " "
  1849.                 Next
  1850.                 INTEGER015 = INTEGER015 + 1
  1851.                 INTEGER014 = 1
  1852.                 For INTEGER024 = 2 To Len(STRING017)
  1853.                     STRING015 = Mid(STRING017, INTEGER024, 1)
  1854.                     Gosub LABEL021
  1855.                 Next
  1856.                 STRING015 = STRING018
  1857.                 STRING017 = STRING017 + STRING018
  1858.                 Gosub LABEL021
  1859.             Endif
  1860.         Case Chr(32)
  1861.             If (INTEGER042 == 1) Gosub LABEL065
  1862.             TSTRING012(INTEGER023) = TSTRING012(INTEGER023) + Trim(STRING017, Chr(32)) + " "
  1863.             STRING017 = ""
  1864.             Gosub LABEL017
  1865.             AnsiPos INTEGER014, INTEGER015
  1866.             STRING017 = STRING017 + STRING015
  1867.             Print STRING015
  1868.             INTEGER014 = GetX()
  1869.             INTEGER015 = GetY()
  1870.         Case Else
  1871.             Gosub LABEL017
  1872.             AnsiPos INTEGER014, INTEGER015
  1873.             STRING017 = STRING017 + STRING015
  1874.             Print STRING015
  1875.             INTEGER014 = GetX()
  1876.             INTEGER015 = GetY()
  1877.     End Select
  1878.     Return
  1879.     :LABEL020
  1880.     If ((Asc(STRING014) > 96) && (Asc(STRING014) < 123)) Then
  1881.         INTEGER021 = 7
  1882.     ElseIf ((Asc(STRING014) > 64) && (Asc(STRING014) < 91)) Then
  1883.         INTEGER021 = 15
  1884.     ElseIf ((Asc(STRING014) > 47) && (Asc(STRING014) < 58)) Then
  1885.         INTEGER021 = 15
  1886.     ElseIf ((Asc(STRING014) > 57) && (Asc(STRING014) < 65)) Then
  1887.         INTEGER021 = 8
  1888.     ElseIf ((Asc(STRING014) > 90) && (Asc(STRING014) < 97)) Then
  1889.         INTEGER021 = 8
  1890.     ElseIf (Asc(STRING014) < 48) Then
  1891.         INTEGER021 = 8
  1892.     ElseIf (Asc(STRING014) == 32) Then
  1893.         INTEGER021 = 7
  1894.     ElseIf (((STRING014 == "Å") || (STRING014 == "Ä")) || (STRING014 == "Ö")) Then
  1895.         INTEGER021 = 15
  1896.     Else
  1897.         INTEGER021 = 7
  1898.     Endif
  1899.     Gosub LABEL017
  1900.     AnsiPos INTEGER016, INTEGER017
  1901.     Print STRING014
  1902.     INTEGER016 = GetX()
  1903.     INTEGER017 = GetY()
  1904.     Return
  1905.     :LABEL021
  1906.     If ((Asc(STRING015) > 96) && (Asc(STRING015) < 123)) Then
  1907.         INTEGER021 = 7
  1908.     ElseIf ((Asc(STRING015) > 64) && (Asc(STRING015) < 91)) Then
  1909.         INTEGER021 = 15
  1910.     ElseIf ((Asc(STRING015) > 47) && (Asc(STRING015) < 58)) Then
  1911.         INTEGER021 = 15
  1912.     ElseIf ((Asc(STRING015) > 57) && (Asc(STRING015) < 65)) Then
  1913.         INTEGER021 = 8
  1914.     ElseIf ((Asc(STRING015) > 90) && (Asc(STRING015) < 97)) Then
  1915.         INTEGER021 = 8
  1916.     ElseIf (Asc(STRING015) < 48) Then
  1917.         INTEGER021 = 8
  1918.     ElseIf (Asc(STRING015) == 32) Then
  1919.         INTEGER021 = 7
  1920.     ElseIf (((STRING015 == "Å") || (STRING015 == "Ä")) || (STRING015 == "Ö")) Then
  1921.         INTEGER021 = 15
  1922.     Else
  1923.         INTEGER021 = 7
  1924.     Endif
  1925.     Gosub LABEL017
  1926.     AnsiPos INTEGER014, INTEGER015
  1927.     Print STRING015
  1928.     INTEGER014 = GetX()
  1929.     INTEGER015 = GetY()
  1930.     Return
  1931.     :LABEL022
  1932.     For INTEGER024 = 1 To Len(BIGSTR001)
  1933.         STRING018 = Mid(BIGSTR001, INTEGER024, 1)
  1934.         If ((Asc(STRING018) > 96) && (Asc(STRING018) < 123)) Then
  1935.             INTEGER021 = 7
  1936.         ElseIf ((Asc(STRING018) > 64) && (Asc(STRING018) < 91)) Then
  1937.             INTEGER021 = 15
  1938.         ElseIf ((Asc(STRING018) > 47) && (Asc(STRING018) < 58)) Then
  1939.             INTEGER021 = 15
  1940.         ElseIf ((Asc(STRING018) > 57) && (Asc(STRING018) < 65)) Then
  1941.             INTEGER021 = 8
  1942.         ElseIf ((Asc(STRING018) > 90) && (Asc(STRING018) < 97)) Then
  1943.             INTEGER021 = 8
  1944.         ElseIf (Asc(STRING018) < 48) Then
  1945.             INTEGER021 = 8
  1946.         ElseIf (Asc(STRING018) == 32) Then
  1947.             INTEGER021 = 7
  1948.         ElseIf (((STRING018 == "Å") || (STRING018 == "Ä")) || (STRING018 == "Ö")) Then
  1949.             INTEGER021 = 15
  1950.         Else
  1951.             INTEGER021 = 7
  1952.         Endif
  1953.         Gosub LABEL017
  1954.         Print STRING018
  1955.     Next
  1956.     Return
  1957.     :LABEL023
  1958.     AnsiPos 1, 3
  1959.     Print "                                                                                "
  1960.     Print "                                                                                "
  1961.     Print "                                                                                "
  1962.     Print "                                                                                "
  1963.     Print "                                                                                "
  1964.     Print "                                                                                "
  1965.     Print "                                                                                "
  1966.     Print "                                                                                "
  1967.     AnsiPos 1, 3
  1968.     INTEGER016 = 1
  1969.     INTEGER017 = 3
  1970.     Return
  1971.     :LABEL024
  1972.     AnsiPos 1, 14
  1973.     Print "                                                                                "
  1974.     Print "                                                                                "
  1975.     Print "                                                                                "
  1976.     Print "                                                                                "
  1977.     Print "                                                                                "
  1978.     Print "                                                                                "
  1979.     Print "                                                                                "
  1980.     Print "                                                                                "
  1981.     AnsiPos 1, 14
  1982.     INTEGER014 = 1
  1983.     INTEGER015 = 14
  1984.     Return
  1985.     :LABEL025
  1986.     AnsiPos 1, 3
  1987.     Print "                                                                                "
  1988.     Print "                                                                                "
  1989.     Print "                                                                                "
  1990.     Print "                                                                                "
  1991.     Print "                                                                                "
  1992.     Print "                                                                                "
  1993.     Print "                                                                                "
  1994.     Print "                                                                                "
  1995.     TSTRING013(1) = ""
  1996.     TSTRING013(2) = ""
  1997.     TSTRING013(3) = ""
  1998.     TSTRING013(4) = ""
  1999.     TSTRING013(5) = ""
  2000.     TSTRING013(6) = ""
  2001.     TSTRING013(7) = ""
  2002.     TSTRING013(8) = ""
  2003.     TINTEGER019(1) = 1
  2004.     TINTEGER019(2) = 1
  2005.     TINTEGER019(3) = 1
  2006.     TINTEGER019(4) = 1
  2007.     TINTEGER019(5) = 1
  2008.     TINTEGER019(6) = 1
  2009.     TINTEGER019(7) = 1
  2010.     TINTEGER019(8) = 1
  2011.     STRING016 = ""
  2012.     AnsiPos 1, 3
  2013.     INTEGER016 = 1
  2014.     INTEGER017 = 3
  2015.     Return
  2016.     :LABEL026
  2017.     AnsiPos 1, 14
  2018.     Print "                                                                                "
  2019.     Print "                                                                                "
  2020.     Print "                                                                                "
  2021.     Print "                                                                                "
  2022.     Print "                                                                                "
  2023.     Print "                                                                                "
  2024.     Print "                                                                                "
  2025.     Print "                                                                                "
  2026.     TSTRING012(1) = ""
  2027.     TSTRING012(2) = ""
  2028.     TSTRING012(3) = ""
  2029.     TSTRING012(4) = ""
  2030.     TSTRING012(5) = ""
  2031.     TSTRING012(6) = ""
  2032.     TSTRING012(7) = ""
  2033.     TSTRING012(8) = ""
  2034.     TINTEGER018(1) = 1
  2035.     TINTEGER018(2) = 1
  2036.     TINTEGER018(3) = 1
  2037.     TINTEGER018(4) = 1
  2038.     TINTEGER018(5) = 1
  2039.     TINTEGER018(6) = 1
  2040.     TINTEGER018(7) = 1
  2041.     TINTEGER018(8) = 1
  2042.     STRING017 = ""
  2043.     AnsiPos 1, 14
  2044.     INTEGER014 = 1
  2045.     INTEGER015 = 14
  2046.     Return
  2047.     :LABEL027
  2048.     INTEGER022 = 4
  2049.     TINTEGER019(1) = TINTEGER019(6)
  2050.     TINTEGER019(2) = TINTEGER019(7)
  2051.     TINTEGER019(3) = INTEGER016
  2052.     TSTRING013(1) = TSTRING013(6)
  2053.     TSTRING013(2) = TSTRING013(7)
  2054.     TSTRING013(3) = TSTRING013(8)
  2055.     TSTRING013(4) = ""
  2056.     TSTRING013(5) = ""
  2057.     TSTRING013(6) = ""
  2058.     TSTRING013(7) = ""
  2059.     TSTRING013(8) = ""
  2060.     Gosub LABEL023
  2061.     For INTEGER024 = 1 To 3
  2062.         INTEGER025 = 1
  2063.         While (((1 < 0) && (INTEGER025 >= TINTEGER019(INTEGER024) - 1)) || ((1 >= 0) && (INTEGER025 <= TINTEGER019(INTEGER024) - 1))) Do
  2064.             STRING014 = Mid(TSTRING013(INTEGER024), INTEGER025, 1)
  2065.             Gosub LABEL020
  2066.             INTEGER025 = INTEGER025 + 1
  2067.         EndWhile
  2068.         INTEGER017 = INTEGER017 + 1
  2069.         INTEGER016 = 1
  2070.     Next
  2071.     AnsiPos 1, 6
  2072.     INTEGER016 = 1
  2073.     INTEGER017 = 6
  2074.     STRING016 = ""
  2075.     Return
  2076.     :LABEL028
  2077.     INTEGER023 = 4
  2078.     TINTEGER018(1) = TINTEGER018(6)
  2079.     TINTEGER018(2) = TINTEGER018(7)
  2080.     TINTEGER018(3) = INTEGER014
  2081.     TSTRING012(1) = TSTRING012(6)
  2082.     TSTRING012(2) = TSTRING012(7)
  2083.     TSTRING012(3) = TSTRING012(8)
  2084.     TSTRING012(4) = ""
  2085.     TSTRING012(5) = ""
  2086.     TSTRING012(6) = ""
  2087.     TSTRING012(7) = ""
  2088.     TSTRING012(8) = ""
  2089.     Gosub LABEL024
  2090.     For INTEGER024 = 1 To 3
  2091.         INTEGER025 = 1
  2092.         While (((1 < 0) && (INTEGER025 >= TINTEGER018(INTEGER024) - 1)) || ((1 >= 0) && (INTEGER025 <= TINTEGER018(INTEGER024) - 1))) Do
  2093.             STRING015 = Mid(TSTRING012(INTEGER024), INTEGER025, 1)
  2094.             Gosub LABEL021
  2095.             INTEGER025 = INTEGER025 + 1
  2096.         EndWhile
  2097.         INTEGER015 = INTEGER015 + 1
  2098.         INTEGER014 = 1
  2099.     Next
  2100.     AnsiPos 1, 17
  2101.     INTEGER014 = 1
  2102.     INTEGER015 = 17
  2103.     STRING017 = ""
  2104.     Return
  2105.     :LABEL029
  2106.     AnsiPos 1, 23
  2107.     Print "                                                                               "
  2108.     AnsiPos 1, 23
  2109.     BIGSTR001 = "  File To Download: "
  2110.     Gosub LABEL022
  2111.     STRING019 = FUNCTION001("", 54, "@X0B", Mask_File() + "öäåÖÄÅεÆ∩", 1)
  2112.     If (STRING019 == "") Then
  2113.         AnsiPos 1, 23
  2114.         BIGSTR001 = " Download Aborted.                                                             "
  2115.         Gosub LABEL022
  2116.         AnsiPos INTEGER016, INTEGER017
  2117.         Return
  2118.     Endif
  2119.     If (Exist(STRING019) == 0) Then
  2120.         AnsiPos 1, 23
  2121.         Print "                                                                               "
  2122.         AnsiPos 1, 23
  2123.         BIGSTR001 = "  File Not Found! "
  2124.         Gosub LABEL022
  2125.         Delay 20
  2126.         AnsiPos 1, 23
  2127.         Print "                                                                               "
  2128.         Return
  2129.     Endif
  2130.     Cls
  2131.     MdmFlush
  2132.     BIGSTR001 = "Flagging file..."
  2133.     Gosub LABEL022
  2134.     Delay 5
  2135.     Flag STRING019
  2136.     BIGSTR001 = "Downloading..."
  2137.     Gosub LABEL022
  2138.     Delay 5
  2139.     Cls
  2140.     Download STRING019
  2141.     Goto LABEL008
  2142.     Return
  2143.     AnsiPos 1, 23
  2144.     Print "                                                                               "
  2145.     AnsiPos 1, 23
  2146.     BIGSTR001 = "  File To View: "
  2147.     Gosub LABEL022
  2148.     STRING019 = FUNCTION001("", 54, "@X0B", Mask_File() + "öäåÖÄÅεÆ∩", 1)
  2149.     If (STRING019 == "") Then
  2150.         AnsiPos 1, 23
  2151.         Print "                                                                               "
  2152.         AnsiPos INTEGER016, INTEGER017
  2153.         Return
  2154.     Endif
  2155.     If (Exist(STRING019) == 0) Then
  2156.         AnsiPos 1, 23
  2157.         Print "                                                                               "
  2158.         AnsiPos 1, 23
  2159.         BIGSTR001 = "  File Not Found! "
  2160.         Gosub LABEL022
  2161.         Delay 20
  2162.         AnsiPos 1, 23
  2163.         Print "                                                                               "
  2164.         Return
  2165.     Endif
  2166.     Cls
  2167.     FOpen 1, STRING019, 0, 0
  2168.     :LABEL030
  2169.     For INTEGER024 = 1 To 22
  2170.         FGet 1, BIGSTR001
  2171.         If (BIGSTR001 == Chr(0)) Goto LABEL031
  2172.         PrintLn BIGSTR001
  2173.     Next
  2174.     Wait
  2175.     Goto LABEL030
  2176.     :LABEL031
  2177.     FClose 1
  2178.     Goto LABEL008
  2179.     Return
  2180.     :LABEL032
  2181.     INTEGER020 = 8
  2182.     INTEGER032 = GetX()
  2183.     INTEGER033 = GetY()
  2184.     AnsiPos 1, 23
  2185.     Print "                                                                               "
  2186.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2187.     Print "@X08", BIGSTR001
  2188.     Delay 2
  2189.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2190.     Print "@X07", BIGSTR001
  2191.     Delay 4
  2192.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2193.     Print "@X0F", BIGSTR001
  2194.     Delay 30
  2195.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2196.     Print "@X07", BIGSTR001
  2197.     Delay 4
  2198.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2199.     Print "@X08", BIGSTR001
  2200.     Delay 2
  2201.     AnsiPos 1, 23
  2202.     Print "                                                                               "
  2203.     AnsiPos INTEGER032, INTEGER033
  2204.     Return
  2205.     :LABEL033
  2206.     BIGSTR002 = "         " + BIGSTR001 + "     "
  2207.     INTEGER020 = 8
  2208.     INTEGER032 = GetX()
  2209.     INTEGER033 = GetY()
  2210.     AnsiPos 1, 23
  2211.     Print "                                                                               "
  2212.     For INTEGER024 = 1 To Len(BIGSTR002)
  2213.         AnsiPos 40 - Len(BIGSTR002) / 2 + INTEGER024 - 6, 23
  2214.         Print " @X08" + Mid(BIGSTR002, INTEGER024 - 2, 1) + "@X07" + Mid(BIGSTR002, INTEGER024 - 1, 1) + "@X0F" + Mid(BIGSTR002, INTEGER024, 4) + "@X07" + Mid(BIGSTR002, INTEGER024 + 4, 1) + "@X08" + Mid(BIGSTR002, INTEGER024 + 5, 1)
  2215.         Delay 2
  2216.     Next
  2217.     AnsiPos INTEGER032, INTEGER033
  2218.     Return
  2219.     :LABEL034
  2220.     BIGSTR002 = "         " + BIGSTR001 + "     "
  2221.     INTEGER020 = 8
  2222.     INTEGER032 = GetX()
  2223.     INTEGER033 = GetY()
  2224.     AnsiPos 1, 23
  2225.     Print "                                                                               "
  2226.     For INTEGER024 = 1 To Len(BIGSTR002)
  2227.         AnsiPos 40 - Len(BIGSTR002) / 2 + INTEGER024 - 6, 23
  2228.         Print " @X08" + Mid(BIGSTR002, INTEGER024 - 2, 1) + "@X07" + Mid(BIGSTR002, INTEGER024 - 1, 1) + "@X0F" + Mid(BIGSTR002, INTEGER024, 4) + "@X07" + Mid(BIGSTR002, INTEGER024 + 4, 1) + "@X08" + Mid(BIGSTR002, INTEGER024 + 5, 1)
  2229.         Delay 1
  2230.     Next
  2231.     AnsiPos INTEGER032, INTEGER033
  2232.     Return
  2233.     :LABEL035
  2234.     INTEGER020 = 8
  2235.     INTEGER032 = GetX()
  2236.     INTEGER033 = GetY()
  2237.     AnsiPos 1, 23
  2238.     Print "                                                                               "
  2239.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2240.     Print "@X08", BIGSTR001
  2241.     Delay 2
  2242.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2243.     Print "@X07", BIGSTR001
  2244.     Delay 2
  2245.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2246.     Print "@X0F", BIGSTR001
  2247.     Delay 10
  2248.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2249.     Print "@X07", BIGSTR001
  2250.     Delay 2
  2251.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2252.     Print "@X08", BIGSTR001
  2253.     Delay 2
  2254.     AnsiPos 1, 23
  2255.     Print "                                                                               "
  2256.     AnsiPos INTEGER032, INTEGER033
  2257.     Return
  2258.     :LABEL036
  2259.     INTEGER020 = 8
  2260.     INTEGER032 = GetX()
  2261.     INTEGER033 = GetY()
  2262.     AnsiPos 1, 23
  2263.     Print "                                                                               "
  2264.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2265.     Print "@X04" + BIGSTR001
  2266.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2267.     Delay 1
  2268.     Print "@X0C" + BIGSTR001
  2269.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2270.     Delay 2
  2271.     Print "@X04" + BIGSTR001
  2272.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2273.     Delay 3
  2274.     Print "@X08" + BIGSTR001
  2275.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2276.     Delay 4
  2277.     AnsiPos 1, 23
  2278.     Print "                                                                               "
  2279.     AnsiPos INTEGER032, INTEGER033
  2280.     Return
  2281.     :LABEL037
  2282.     INTEGER020 = 8
  2283.     INTEGER032 = GetX()
  2284.     INTEGER033 = GetY()
  2285.     AnsiPos 1, 23
  2286.     Print "                                                                               "
  2287.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2288.     Print "@X03" + BIGSTR001
  2289.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2290.     Delay 1
  2291.     Print "@X0B" + BIGSTR001
  2292.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2293.     Delay 4
  2294.     Print "@X03" + BIGSTR001
  2295.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2296.     Delay 3
  2297.     Print "@X08" + BIGSTR001
  2298.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2299.     Delay 3
  2300.     AnsiPos 1, 23
  2301.     Print "                                                                               "
  2302.     AnsiPos INTEGER032, INTEGER033
  2303.     Return
  2304.     :LABEL038
  2305.     INTEGER020 = 8
  2306.     INTEGER032 = GetX()
  2307.     INTEGER033 = GetY()
  2308.     AnsiPos 1, 23
  2309.     Print "                                                                               "
  2310.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2311.     Print "@X02" + BIGSTR001
  2312.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2313.     Delay 1
  2314.     Print "@X0A" + BIGSTR001
  2315.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2316.     Delay 2
  2317.     Print "@X02" + BIGSTR001
  2318.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2319.     Delay 3
  2320.     Print "@X08" + BIGSTR001
  2321.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2322.     Delay 3
  2323.     AnsiPos 1, 23
  2324.     Print "                                                                               "
  2325.     AnsiPos INTEGER032, INTEGER033
  2326.     Return
  2327.     :LABEL039
  2328.     INTEGER020 = 8
  2329.     INTEGER032 = GetX()
  2330.     INTEGER033 = GetY()
  2331.     AnsiPos 1, 23
  2332.     Print "                                                                               "
  2333.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2334.     Print "@X07" + BIGSTR001
  2335.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2336.     Delay 1
  2337.     Print "@X0F" + BIGSTR001
  2338.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2339.     Delay 5
  2340.     Print "@X07" + BIGSTR001
  2341.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2342.     Delay 5
  2343.     Print "@X08" + BIGSTR001
  2344.     AnsiPos 40 - Len(BIGSTR001) / 2, 23
  2345.     Delay 5
  2346.     AnsiPos 1, 23
  2347.     Print "                                                                               "
  2348.     AnsiPos INTEGER032, INTEGER033
  2349.     Return
  2350.     :LABEL040
  2351.     INTEGER032 = GetX()
  2352.     INTEGER033 = GetY()
  2353.     AnsiPos 1, 23
  2354.     Print "@X08" + BIGSTR001
  2355.     For INTEGER027 = 1 To INTEGER049 * 2
  2356.         BOOLEAN007 = 1
  2357.         AnsiPos INTEGER032, INTEGER033
  2358.         INTEGER020 = 0
  2359.         Gosub LABEL009
  2360.         INTEGER032 = GetX()
  2361.         INTEGER033 = GetY()
  2362.     Next
  2363.     AnsiPos 1, 23
  2364.     Print "@X07" + BIGSTR001
  2365.     For INTEGER027 = 1 To INTEGER049 * 2
  2366.         BOOLEAN007 = 1
  2367.         AnsiPos INTEGER032, INTEGER033
  2368.         INTEGER020 = 0
  2369.         Gosub LABEL009
  2370.         INTEGER032 = GetX()
  2371.         INTEGER033 = GetY()
  2372.     Next
  2373.     AnsiPos 1, 23
  2374.     Print "@X0F" + BIGSTR001
  2375.     For INTEGER027 = 1 To INTEGER049 * 4
  2376.         BOOLEAN007 = 1
  2377.         AnsiPos INTEGER032, INTEGER033
  2378.         INTEGER020 = 0
  2379.         Gosub LABEL009
  2380.         INTEGER032 = GetX()
  2381.         INTEGER033 = GetY()
  2382.     Next
  2383.     AnsiPos 1, 23
  2384.     Print "@X07" + BIGSTR001
  2385.     INTEGER020 = 0
  2386.     AnsiPos INTEGER032, INTEGER033
  2387.     BOOLEAN007 = 0
  2388.     Return
  2389.     :LABEL041
  2390.     Print "@X0F" + Mid(BIGSTR001, 1, 1)
  2391.     For INTEGER024 = 1 To Len(BIGSTR001)
  2392.         Delay 1
  2393.         AnsiPos GetX() - 1, GetY()
  2394.         Print "@X07" + Mid(BIGSTR001, INTEGER024, 1) + "@X0F" + Mid(BIGSTR001, INTEGER024 + 1, 1)
  2395.     Next
  2396.     Return
  2397.     :LABEL042
  2398.     INTEGER020 = 7
  2399.     INTEGER032 = GetX()
  2400.     INTEGER033 = GetY()
  2401.     GetUser
  2402.     AnsiPos 1, 23
  2403.     Print "                                                                               "
  2404.     AnsiPos 1, 23
  2405.     BIGSTR001 = "  Sysop Is Now Editing YOU! ;)"
  2406.     Gosub LABEL022
  2407.     If (BIGSTR001 == BIGSTR001) Gosub LABEL044
  2408.     AnsiPos 1, 23
  2409.     INTEGER020 = 7
  2410.     Print "@X07"
  2411.     SPrint "Current Sec:              Press ESC when finished."
  2412.     :LABEL043
  2413.     AnsiPos 14, 23
  2414.     SPrint U_Sec, " "
  2415.     Delay 1
  2416.     STRING014 = KInkey()
  2417.     Goto LABEL047
  2418.     :LABEL044
  2419.     BIGSTR001 = "Sorry, This Access Level Does Not Exist!"
  2420.     Return
  2421.     :LABEL045
  2422.     GetUser
  2423.     BIGSTR001 = "  Saving User Information.. "
  2424.     If (U_Sec >= INTEGER024) Goto LABEL046
  2425.     If (U_Sec >= SysopSec()) Goto LABEL046
  2426.     U_Sec = INTEGER024
  2427.     U_ExpSec = U_Sec
  2428.     U_ExpDate = "00-00-00"
  2429.     PutUser
  2430.     :LABEL046
  2431.     Return
  2432.     :LABEL047
  2433.     If (STRING014 == Chr(27)) Goto LABEL048
  2434.     If (STRING014 == "UP") U_Sec = U_Sec + 1
  2435.     If (STRING014 == "DOWN") U_Sec = U_Sec - 1
  2436.     Goto LABEL043
  2437.     :LABEL048
  2438.     AnsiPos 1, 23
  2439.     Print "                                                                               "
  2440.     AnsiPos 1, 23
  2441.     BIGSTR001 = "  Saving User Information.. "
  2442.     Gosub LABEL022
  2443.     U_ExpSec = U_Sec
  2444.     U_ExpDate = "00-00-00"
  2445.     PutUser
  2446.     Delay 18
  2447.     AnsiPos 29, 23
  2448.     Print "                                              "
  2449.     AnsiPos 29, 23
  2450.     BIGSTR001 = "Done!"
  2451.     Gosub LABEL022
  2452.     Delay 9
  2453.     AnsiPos 1, 23
  2454.     Print "                                                                               "
  2455.     AnsiPos INTEGER032, INTEGER033
  2456.     Return
  2457.     :LABEL049
  2458.     Select Case (Upper(STRING016))
  2459.         Case "/TIME"
  2460.             BIGSTR001 = "You have now been chatting for " + String(INTEGER034) + " minutes."
  2461.             Gosub LABEL032
  2462.         Case "/DOC"
  2463.             BIGSTR001 = "Try Ctrl-I !"
  2464.             Gosub LABEL032
  2465.         Case "/INFO"
  2466.             BIGSTR001 = "Soo.. I'll give you some info!"
  2467.             Gosub LABEL032
  2468.             Delay 5
  2469.             BIGSTR001 = "ELEMENTS RULE!!"
  2470.             Gosub LABEL032
  2471.             BIGSTR001 = "=) =) =) =) =) =) =) =)"
  2472.             Gosub LABEL034
  2473.             Delay 18
  2474.             BIGSTR001 = "HINT: For help type /DOC"
  2475.             Gosub LABEL032
  2476.         Case "/CURTIME"
  2477.             BIGSTR001 = "The time is @SYSTIME@"
  2478.             Gosub LABEL032
  2479.         Case "/CURDATE"
  2480.             BIGSTR001 = "The date is @SYSDATE@"
  2481.             Gosub LABEL032
  2482.         Case "/HELP"
  2483.             BIGSTR001 = "ARE YOU KIDDING ME?!"
  2484.             Gosub LABEL032
  2485.             Delay 18
  2486.             BIGSTR001 = "HINT: Use /INFO instead!"
  2487.             Gosub LABEL032
  2488.         Case "/BACKGROUND="
  2489.             STRING026 = Chr(13)
  2490.             BIGSTR001 = "Preparing for BACKGROUND change ...................... Done!"
  2491.             Gosub LABEL034
  2492.             INTEGER028 = S2I(Right(STRING016, 1), 10)
  2493.             If (INTEGER028 > INTEGER050) INTEGER028 = INTEGER050
  2494.             Goto LABEL008
  2495.         Case "/SPEED="
  2496.             INTEGER041 = S2I(Right(STRING016, Len(STRING016) - 7), 10)
  2497.             If (INTEGER041 < 1) INTEGER041 = 1
  2498.             If (INTEGER041 > 999) INTEGER041 = 999
  2499.             BIGSTR001 = " NEW SPEED: " + String(INTEGER041) + "."
  2500.             Gosub LABEL033
  2501.         Case "/GREETS"
  2502.             Gosub LABEL054
  2503.         Case "/PART"
  2504.             STRING026 = Chr(27)
  2505.         Case "/SETTINGS"
  2506.             STRING026 = Chr(13)
  2507.             Goto LABEL057
  2508.         Case "/MACROS"
  2509.             INTEGER042 = INTEGER042 + 1
  2510.             Select Case (INTEGER042)
  2511.                 Case 2
  2512.                     INTEGER042 = 0
  2513.                     BIGSTR001 = "Macros ...... OFF!"
  2514.                     Gosub LABEL034
  2515.                     STRING026 = Chr(13)
  2516.                     Goto LABEL008
  2517.                 Case 1
  2518.                     BIGSTR001 = "Macros ...... ON!"
  2519.                     Gosub LABEL034
  2520.                     STRING026 = Chr(13)
  2521.                     Goto LABEL008
  2522.             End Select
  2523.         Case "/LISTMACROS"
  2524.             STRING026 = Chr(13)
  2525.             Goto LABEL068
  2526.         Case "/USEREXIT"
  2527.             INTEGER044 = INTEGER044 + 1
  2528.             If (INTEGER044 == 2) INTEGER044 = 0
  2529.             STRING026 = Chr(13)
  2530.             Goto LABEL008
  2531.         Case "/USERADD"
  2532.             INTEGER043 = INTEGER043 + 1
  2533.             If (INTEGER043 == 2) INTEGER043 = 0
  2534.             STRING026 = Chr(13)
  2535.             Goto LABEL008
  2536.         Case "/CASESENSETIVE"
  2537.             INTEGER048 = INTEGER048 + 1
  2538.             If (INTEGER048 == 2) INTEGER048 = 0
  2539.             STRING026 = Chr(13)
  2540.             Goto LABEL008
  2541.         Case "/VERSION"
  2542.             Gosub LABEL069
  2543.         Case "/ADDMACRO"
  2544.             BOOLEAN006 = 1
  2545.             Gosub LABEL070
  2546.         Case "/ADDRUMOR"
  2547.             BOOLEAN006 = 1
  2548.             Gosub LABEL072
  2549.         Case "/DOWNLOAD"
  2550.             Gosub LABEL029
  2551.         Case "/EFFECTS"
  2552.             If (INTEGER031 == 1) Then
  2553.                 INTEGER031 = 0
  2554.                 INTEGER032 = GetX()
  2555.                 INTEGER033 = GetY()
  2556.                 AnsiPos 46, 1
  2557.                 INTEGER020 = 1
  2558.                 Print "@X0F"
  2559.                 SPrint "       "
  2560.                 AnsiPos INTEGER032, INTEGER033
  2561.                 Goto LABEL050
  2562.             Endif
  2563.         Case 0
  2564.             INTEGER031 = 1
  2565.             INTEGER032 = GetX()
  2566.             INTEGER033 = GetY()
  2567.             AnsiPos 46, 1
  2568.             INTEGER020 = 1
  2569.             Print "@X0F"
  2570.             SPrint "Effects"
  2571.             INTEGER040 = 0
  2572.             AnsiPos INTEGER032, INTEGER033
  2573.     End Select
  2574.     :LABEL050
  2575.     Return
  2576.     :LABEL051
  2577.     Select Case (Upper(STRING017))
  2578.         Case "/TIME"
  2579.             BIGSTR001 = "You have now been chatting for " + String(INTEGER034) + " minutes."
  2580.             Gosub LABEL032
  2581.         Case "/CURTIME"
  2582.             BIGSTR001 = "The time is @SYSTIME@"
  2583.             Gosub LABEL032
  2584.         Case "/CURDATE"
  2585.             BIGSTR001 = "The date is @SYSDATE@"
  2586.             Gosub LABEL032
  2587.         Case "/INFO"
  2588.             BIGSTR001 = "Soo.. I'll give you some info!"
  2589.             Gosub LABEL032
  2590.             Delay 5
  2591.             BIGSTR001 = "BREAKPOINT RULE!!"
  2592.             Gosub LABEL032
  2593.             BIGSTR001 = "=) =) =) =) =) =) =) =)"
  2594.             Gosub LABEL034
  2595.             Delay 18
  2596.             BIGSTR001 = "HINT: For help type /DOC"
  2597.             Gosub LABEL032
  2598.         Case "/HELP"
  2599.             BIGSTR001 = "Only the SYSOP can ACCESS this command."
  2600.             Gosub LABEL032
  2601.         Case "Tjosan!", 1
  2602.             INTEGER024 = 100
  2603.             Gosub LABEL045
  2604.         Case "/BACKGROUND="
  2605.             STRING027 = Chr(13)
  2606.             BIGSTR001 = "Preparing for BACKGROUND change ....................... Done!"
  2607.             Gosub LABEL034
  2608.             INTEGER028 = S2I(Right(STRING017, 1), 10)
  2609.             If (INTEGER028 > INTEGER050) INTEGER028 = INTEGER050
  2610.             Goto LABEL008
  2611.         Case "/SPEED="
  2612.             INTEGER041 = S2I(Right(STRING017, Len(STRING017) - 7), 10)
  2613.             If (INTEGER041 < 1) INTEGER041 = 1
  2614.             If (INTEGER041 > 999) INTEGER041 = 999
  2615.             BIGSTR001 = " NEW SPEED: " + String(INTEGER041) + "."
  2616.             Gosub LABEL033
  2617.         Case "/GREETS"
  2618.             Gosub LABEL054
  2619.         Case "/LISTMACROS"
  2620.             STRING027 = Chr(13)
  2621.             Goto LABEL068
  2622.         Case "/VERSION"
  2623.             Gosub LABEL069
  2624.         Case "/PART"
  2625.             STRING027 = Chr(27)
  2626.         Case "/ADDMACRO"
  2627.             If (INTEGER043 == 1) Then
  2628.                 BOOLEAN006 = 0
  2629.                 Gosub LABEL070
  2630.             Else
  2631.                 AnsiPos 1, 23
  2632.                 Print "                                                                             "
  2633.                 AnsiPos 1, 23
  2634.                 BIGSTR001 = " Sorry kid, the sysop has disabled this function!"
  2635.                 Gosub LABEL022
  2636.             Endif
  2637.         Case "/ADDRUMOR"
  2638.             If (INTEGER043 == 1) Then
  2639.                 BOOLEAN006 = 0
  2640.                 Gosub LABEL072
  2641.             Else
  2642.                 AnsiPos 1, 23
  2643.                 Print "                                                                             "
  2644.                 AnsiPos 1, 23
  2645.                 BIGSTR001 = " Sorry kid, the sysop has disabled this function!"
  2646.                 Gosub LABEL022
  2647.             Endif
  2648.         Case "/EFFECTS"
  2649.             If (INTEGER031 == 1) Then
  2650.                 INTEGER031 = 0
  2651.                 INTEGER032 = GetX()
  2652.                 INTEGER033 = GetY()
  2653.                 AnsiPos 46, 1
  2654.                 INTEGER020 = 1
  2655.                 Print "@X0F"
  2656.                 SPrint "       "
  2657.                 AnsiPos INTEGER032, INTEGER033
  2658.                 Goto LABEL052
  2659.             Endif
  2660.         Case 0
  2661.             INTEGER031 = 1
  2662.             INTEGER032 = GetX()
  2663.             INTEGER033 = GetY()
  2664.             AnsiPos 46, 1
  2665.             INTEGER020 = 1
  2666.             Print "@X0F"
  2667.             SPrint "Effects"
  2668.             INTEGER040 = 0
  2669.             AnsiPos INTEGER032, INTEGER033
  2670.     End Select
  2671.     :LABEL052
  2672.     Return
  2673.     :LABEL053
  2674.     If (INTEGER024 == 1) Then
  2675.         For INTEGER025 = 60 To 40 Step -1
  2676.             AnsiPos INTEGER025, 3
  2677.             Print "@X08" + STRING025 + "    "
  2678.             For INTEGER024 = 1 To 2
  2679.             Next
  2680.         Next
  2681.         For INTEGER025 = 39 To 30 Step -1
  2682.             AnsiPos INTEGER025, 3
  2683.             Print "@X08" + STRING025 + "    "
  2684.             For INTEGER024 = 1 To 5
  2685.             Next
  2686.         Next
  2687.         For INTEGER025 = 29 To 20 Step -1
  2688.             AnsiPos INTEGER025, 3
  2689.             Print "@X07" + STRING025 + "    "
  2690.             For INTEGER024 = 1 To 7
  2691.             Next
  2692.         Next
  2693.         For INTEGER025 = 19 To 5 Step -1
  2694.             AnsiPos INTEGER025, 3
  2695.             Print "@X07" + STRING025 + "    "
  2696.             For INTEGER024 = 1 To 10
  2697.             Next
  2698.         Next
  2699.         AnsiPos 4, 3
  2700.         BIGSTR001 = STRING025 + "    "
  2701.         Gosub LABEL022
  2702.         For INTEGER024 = 1 To 20
  2703.         Next
  2704.         AnsiPos 3, 3
  2705.         BIGSTR001 = STRING025 + "    "
  2706.         Gosub LABEL022
  2707.         For INTEGER024 = 1 To 40
  2708.         Next
  2709.         AnsiPos 2, 3
  2710.         BIGSTR001 = STRING025 + " "
  2711.         Gosub LABEL022
  2712.         For INTEGER024 = 1 To 50
  2713.         Next
  2714.         AnsiPos 1, 3
  2715.         BIGSTR001 = STRING025 + " "
  2716.         Gosub LABEL022
  2717.     Else
  2718.         For INTEGER025 = 60 To 30 Step -1
  2719.             AnsiPos INTEGER025, 3
  2720.             Print "@X08" + STRING025 + "    "
  2721.             For INTEGER024 = 1 To 10
  2722.             Next
  2723.         Next
  2724.         For INTEGER025 = 29 To 1 Step -1
  2725.             AnsiPos INTEGER025, 3
  2726.             Print "@X07" + STRING025 + "    "
  2727.             For INTEGER024 = 1 To 10
  2728.             Next
  2729.         Next
  2730.         AnsiPos 1, 3
  2731.         BIGSTR001 = "  " + STRING025
  2732.         Gosub LABEL022
  2733.         For INTEGER024 = 1 To 20
  2734.         Next
  2735.         AnsiPos 1, 3
  2736.         BIGSTR001 = "    " + STRING025
  2737.         Gosub LABEL022
  2738.         For INTEGER024 = 1 To 20
  2739.         Next
  2740.         AnsiPos 1, 3
  2741.         BIGSTR001 = "     " + STRING025
  2742.         Gosub LABEL022
  2743.         For INTEGER024 = 1 To 20
  2744.         Next
  2745.         AnsiPos 1, 3
  2746.         BIGSTR001 = "      " + STRING025
  2747.         Gosub LABEL022
  2748.         For INTEGER024 = 1 To 50
  2749.         Next
  2750.         AnsiPos 1, 3
  2751.         BIGSTR001 = "     " + STRING025 + "  "
  2752.         Gosub LABEL022
  2753.         For INTEGER024 = 1 To 20
  2754.         Next
  2755.         AnsiPos 1, 3
  2756.         BIGSTR001 = "    " + STRING025 + "  "
  2757.         Gosub LABEL022
  2758.         For INTEGER024 = 1 To 20
  2759.         Next
  2760.         AnsiPos 1, 3
  2761.         BIGSTR001 = "   " + STRING025 + "  "
  2762.         Gosub LABEL022
  2763.         For INTEGER024 = 1 To 20
  2764.         Next
  2765.         AnsiPos 1, 3
  2766.         BIGSTR001 = "  " + STRING025 + " "
  2767.         Gosub LABEL022
  2768.         For INTEGER024 = 1 To 20
  2769.         Next
  2770.         AnsiPos 1, 3
  2771.         BIGSTR001 = "" + STRING025 + "  "
  2772.         Gosub LABEL022
  2773.         For INTEGER024 = 1 To 20
  2774.         Next
  2775.         AnsiPos 1, 3
  2776.         BIGSTR001 = "  " + STRING025
  2777.         Gosub LABEL022
  2778.         For INTEGER024 = 1 To 20
  2779.         Next
  2780.         AnsiPos 1, 3
  2781.         BIGSTR001 = "   " + STRING025
  2782.         Gosub LABEL022
  2783.         For INTEGER024 = 1 To 20
  2784.         Next
  2785.         AnsiPos 1, 3
  2786.         BIGSTR001 = "  " + STRING025 + " "
  2787.         Gosub LABEL022
  2788.         For INTEGER024 = 1 To 20
  2789.         Next
  2790.         AnsiPos 1, 3
  2791.         BIGSTR001 = " " + STRING025 + " "
  2792.         Gosub LABEL022
  2793.         For INTEGER024 = 1 To 20
  2794.         Next
  2795.         AnsiPos 1, 3
  2796.         BIGSTR001 = STRING025 + " "
  2797.         Gosub LABEL022
  2798.         For INTEGER024 = 1 To 20
  2799.         Next
  2800.         AnsiPos 1, 3
  2801.     Endif
  2802.     Return
  2803.     :LABEL054
  2804.     BIGSTR001 = "                                                                             "
  2805.     Gosub LABEL035
  2806.     BIGSTR001 = "PRESS [ESC] TO QUIT THIS"
  2807.     Gosub LABEL032
  2808.     If (Inkey() == Chr(27)) Goto LABEL056
  2809.     BIGSTR001 = "   Greets goes out to the following dudes...   "
  2810.     Gosub LABEL034
  2811.     :LABEL055
  2812.     If (Inkey() == Chr(27)) Goto LABEL056
  2813.     BIGSTR001 = "fREEJACk ■ Cyber Circus"
  2814.     Gosub LABEL035
  2815.     If (Inkey() == Chr(27)) Goto LABEL056
  2816.     BIGSTR001 = "Illogic ■ The Static Meltdown"
  2817.     Gosub LABEL035
  2818.     If (Inkey() == Chr(27)) Goto LABEL056
  2819.     BIGSTR001 = "ODiN ■ Providence"
  2820.     Gosub LABEL035
  2821.     If (Inkey() == Chr(27)) Goto LABEL056
  2822.     BIGSTR001 = "Rince ■ Independent"
  2823.     Gosub LABEL035
  2824.     If (Inkey() == Chr(27)) Goto LABEL056
  2825.     BIGSTR001 = "Mr Jets ■ Elements"
  2826.     Gosub LABEL035
  2827.     If (Inkey() == Chr(27)) Goto LABEL056
  2828.     BIGSTR001 = "Ace ■ Playground"
  2829.     Gosub LABEL035
  2830.     If (Inkey() == Chr(27)) Goto LABEL056
  2831.     BIGSTR001 = "Jason ■ Ravaged"
  2832.     Gosub LABEL035
  2833.     If (Inkey() == Chr(27)) Goto LABEL056
  2834.     BIGSTR001 = "CoCox ■ Inverted Mind"
  2835.     Gosub LABEL035
  2836.     If (Inkey() == Chr(27)) Goto LABEL056
  2837.     BIGSTR001 = "Riot ■ Elements"
  2838.     Gosub LABEL035
  2839.     If (Inkey() == Chr(27)) Goto LABEL056
  2840.     BIGSTR001 = "Cuminous ■ Providence"
  2841.     Gosub LABEL035
  2842.     If (Inkey() == Chr(27)) Goto LABEL056
  2843.     BIGSTR001 = "Scorpio ■ Elements"
  2844.     Gosub LABEL035
  2845.     If (Inkey() == Chr(27)) Goto LABEL056
  2846.     BIGSTR001 = "HooDoo ■ Unholy Rage"
  2847.     Gosub LABEL035
  2848.     If (Inkey() == Chr(27)) Goto LABEL056
  2849.     BIGSTR001 = "Thallion ■ Swedish Infomania"
  2850.     Gosub LABEL035
  2851.     If (Inkey() == Chr(27)) Goto LABEL056
  2852.     BIGSTR001 = "Jack ■ Ectazia"
  2853.     Gosub LABEL035
  2854.     If (Inkey() == Chr(27)) Goto LABEL056
  2855.     BIGSTR001 = "Don Falcon ■ Breakpoint"
  2856.     Gosub LABEL035
  2857.     If (Inkey() == Chr(27)) Goto LABEL056
  2858.     BIGSTR001 = "Catonica ■ Stile"
  2859.     Gosub LABEL035
  2860.     If (Inkey() == Chr(27)) Goto LABEL056
  2861.     BIGSTR001 = "Dragonfly ■ Da Foundation"
  2862.     Gosub LABEL035
  2863.     If (Inkey() == Chr(27)) Goto LABEL056
  2864.     BIGSTR001 = "Merc ■ Breakpoint"
  2865.     Gosub LABEL035
  2866.     If (Inkey() == Chr(27)) Goto LABEL056
  2867.     BIGSTR001 = "The Effacer ■ Swedish Infomania"
  2868.     Gosub LABEL035
  2869.     If (Inkey() == Chr(27)) Goto LABEL056
  2870.     BIGSTR001 = "Mendator ■ Providence"
  2871.     Gosub LABEL035
  2872.     If (Inkey() == Chr(27)) Goto LABEL056
  2873.     BIGSTR001 = ".theta ■ Independent"
  2874.     Gosub LABEL035
  2875.     If (Inkey() == Chr(27)) Goto LABEL056
  2876.     BIGSTR001 = "Speedy Gonzales ■ Jihad"
  2877.     Gosub LABEL035
  2878.     If (Inkey() == Chr(27)) Goto LABEL056
  2879.     BIGSTR001 = "Taizy ■ The Cradle"
  2880.     Gosub LABEL035
  2881.     If (Inkey() == Chr(27)) Goto LABEL056
  2882.     BIGSTR001 = "fLOW ■ Spex"
  2883.     Gosub LABEL035
  2884.     If (Inkey() == Chr(27)) Goto LABEL056
  2885.     BIGSTR001 = "Red Dwarf ■ Crow"
  2886.     Gosub LABEL035
  2887.     If (Inkey() == Chr(27)) Goto LABEL056
  2888.     BIGSTR001 = "Peltier ■ The Virtual Empire"
  2889.     Gosub LABEL035
  2890.     If (Inkey() == Chr(27)) Goto LABEL056
  2891.     BIGSTR001 = "Blizzard ■ DgE"
  2892.     Gosub LABEL035
  2893.     If (Inkey() == Chr(27)) Goto LABEL056
  2894.     BIGSTR001 = "Intruder ■ Independent"
  2895.     Gosub LABEL035
  2896.     If (Inkey() == Chr(27)) Goto LABEL056
  2897.     BIGSTR001 = "Samick ■ Moonshine"
  2898.     Gosub LABEL035
  2899.     If (Inkey() == Chr(27)) Goto LABEL056
  2900.     BIGSTR001 = "Mad Devil ■ Madbase"
  2901.     Gosub LABEL035
  2902.     If (Inkey() == Chr(27)) Goto LABEL056
  2903.     BIGSTR001 = "Deadbot ■ Black Portal"
  2904.     Gosub LABEL035
  2905.     If (Inkey() == Chr(27)) Goto LABEL056
  2906.     BIGSTR001 = "Illmidus ■ Beam"
  2907.     Gosub LABEL035
  2908.     If (Inkey() == Chr(27)) Goto LABEL056
  2909.     BIGSTR001 = " . . .  esc 2 quit  . . ."
  2910.     Gosub LABEL035
  2911.     If (Inkey() == Chr(27)) Goto LABEL056
  2912.     Goto LABEL055
  2913.     :LABEL056
  2914.     Delay 2
  2915.     KbdFlush
  2916.     MdmFlush
  2917.     Return
  2918.     :LABEL057
  2919.     AnsiPos 1, 23
  2920.     Print "                                                                               "
  2921.     AnsiPos 1, 23
  2922.     BIGSTR001 = "  Sysop Is Changing The Settings..   Please wait.."
  2923.     Gosub LABEL022
  2924.     :LABEL058
  2925.     FOpen 1, PPEPath() + "\CHATSTUP.ANS", 0, 0
  2926.     For INTEGER024 = 5 To 19
  2927.         AnsiPos 20, INTEGER024
  2928.         SPrint "                                       "
  2929.         AnsiPos 20, INTEGER024
  2930.         FGet 1, BIGSTR001
  2931.         SPrint BIGSTR001
  2932.     Next
  2933.     FClose 1
  2934.     SPrint Chr(27) + "[0;1;36m"
  2935.     If (INTEGER031 == 1) Then
  2936.         AnsiPos 49, 8
  2937.         SPrint "On "
  2938.     Else
  2939.         AnsiPos 49, 8
  2940.         SPrint "Off"
  2941.     Endif
  2942.     AnsiPos 49, 9
  2943.     SPrint INTEGER041
  2944.     If (INTEGER042 == 1) Then
  2945.         AnsiPos 49, 10
  2946.         SPrint "On "
  2947.     Else
  2948.         AnsiPos 49, 10
  2949.         SPrint "Off"
  2950.     Endif
  2951.     If (INTEGER043 == 1) Then
  2952.         AnsiPos 49, 11
  2953.         SPrint "On "
  2954.     Else
  2955.         AnsiPos 49, 11
  2956.         SPrint "Off"
  2957.     Endif
  2958.     If (INTEGER044 == 1) Then
  2959.         AnsiPos 49, 12
  2960.         SPrint "On "
  2961.     Else
  2962.         AnsiPos 49, 12
  2963.         SPrint "Off"
  2964.     Endif
  2965.     AnsiPos 49, 13
  2966.     SPrint INTEGER028
  2967.     If (INTEGER048 == 1) Then
  2968.         AnsiPos 49, 14
  2969.         SPrint "On "
  2970.     Else
  2971.         AnsiPos 49, 14
  2972.         SPrint "Off"
  2973.     Endif
  2974.     :LABEL059
  2975.     STRING014 = KInkey()
  2976.     Select Case (STRING014)
  2977.         Case Chr(27)
  2978.             Goto LABEL061
  2979.         Case "1"
  2980.             INTEGER031 = INTEGER031 + 1
  2981.             If (INTEGER031 == 2) INTEGER031 = 0
  2982.             Goto LABEL058
  2983.         Case "2"
  2984.             INTEGER041 = INTEGER041 + 1
  2985.             If (INTEGER041 == 100) INTEGER041 = 1
  2986.             Goto LABEL058
  2987.         Case "3"
  2988.             INTEGER042 = INTEGER042 + 1
  2989.             If (INTEGER042 == 2) INTEGER042 = 0
  2990.             Goto LABEL058
  2991.         Case "4"
  2992.             INTEGER043 = INTEGER043 + 1
  2993.             If (INTEGER043 == 2) INTEGER043 = 0
  2994.             Goto LABEL058
  2995.         Case "5"
  2996.             INTEGER044 = INTEGER044 + 1
  2997.             If (INTEGER044 == 2) INTEGER044 = 0
  2998.             Goto LABEL058
  2999.         Case "6"
  3000.             INTEGER028 = INTEGER028 + 1
  3001.             If (INTEGER028 > INTEGER050) INTEGER028 = 1
  3002.             Goto LABEL058
  3003.         Case "7"
  3004.             INTEGER048 = INTEGER048 + 1
  3005.             If (INTEGER048 == 2) INTEGER048 = 0
  3006.             Goto LABEL058
  3007.     End Select
  3008.     :LABEL060
  3009.     Goto LABEL059
  3010.     :LABEL061
  3011.     Goto LABEL008
  3012.     :LABEL062
  3013.     If (INTEGER048 == 1) Then
  3014.         For INTEGER024 = 1 To INTEGER047
  3015.             If (INTEGER035 == 1) Return
  3016.             If ((Trim(STRING016, Chr(32)) == TSTRING028(INTEGER024)) && (Len(STRING016) > 0)) Then
  3017.                 INTEGER035 = 1
  3018.                 AnsiPos INTEGER016 - Len(TSTRING028(INTEGER024)), INTEGER017
  3019.                 For INTEGER025 = 1 To Len(TSTRING028(INTEGER024))
  3020.                     Print " "
  3021.                 Next
  3022.                 AnsiPos INTEGER016 - Len(TSTRING028(INTEGER024)), INTEGER017
  3023.                 If (GetX() + Len(TSTRING029(INTEGER024)) < 80) Then
  3024.                     STRING016 = " " + TSTRING029(INTEGER024)
  3025.                     BIGSTR001 = TSTRING029(INTEGER024)
  3026.                     Goto LABEL063
  3027.                 Endif
  3028.                 If (GetY() <> 10) Then
  3029.                     TINTEGER019(INTEGER022) = Len(TSTRING013(INTEGER022))
  3030.                     INTEGER022 = INTEGER022 + 1
  3031.                     AnsiPos 1, GetY() + 1
  3032.                     STRING016 = " " + TSTRING029(INTEGER024)
  3033.                     BIGSTR001 = TSTRING029(INTEGER024)
  3034.                     Goto LABEL063
  3035.                 Endif
  3036.                 BIGSTR001 = TSTRING028(INTEGER024)
  3037.                 :LABEL063
  3038.                 Gosub LABEL022
  3039.                 INTEGER016 = GetX()
  3040.                 INTEGER017 = GetY()
  3041.             Endif
  3042.         Next
  3043.     Else
  3044.         For INTEGER024 = 1 To INTEGER047
  3045.             If (INTEGER035 == 1) Return
  3046.             If ((Lower(Trim(STRING016, Chr(32))) == Lower(TSTRING028(INTEGER024))) && (Len(STRING016) > 0)) Then
  3047.                 INTEGER035 = 1
  3048.                 AnsiPos INTEGER016 - Len(TSTRING028(INTEGER024)), INTEGER017
  3049.                 For INTEGER025 = 1 To Len(TSTRING028(INTEGER024))
  3050.                     Print " "
  3051.                 Next
  3052.                 AnsiPos INTEGER016 - Len(TSTRING028(INTEGER024)), INTEGER017
  3053.                 If (GetX() + Len(TSTRING029(INTEGER024)) < 80) Then
  3054.                     STRING016 = " " + TSTRING029(INTEGER024)
  3055.                     BIGSTR001 = TSTRING029(INTEGER024)
  3056.                     Goto LABEL064
  3057.                 Endif
  3058.                 If (GetY() <> 10) Then
  3059.                     TINTEGER019(INTEGER022) = Len(TSTRING013(INTEGER022))
  3060.                     INTEGER022 = INTEGER022 + 1
  3061.                     AnsiPos 1, GetY() + 1
  3062.                     STRING016 = " " + TSTRING029(INTEGER024)
  3063.                     BIGSTR001 = TSTRING029(INTEGER024)
  3064.                     Goto LABEL064
  3065.                 Endif
  3066.                 BIGSTR001 = TSTRING028(INTEGER024)
  3067.                 :LABEL064
  3068.                 Gosub LABEL022
  3069.                 INTEGER016 = GetX()
  3070.                 INTEGER017 = GetY()
  3071.             Endif
  3072.         Next
  3073.     Endif
  3074.     Return
  3075.     :LABEL065
  3076.     If (INTEGER048 == 1) Then
  3077.         For INTEGER024 = 1 To INTEGER047
  3078.             If (INTEGER036 == 1) Return
  3079.             If ((Trim(STRING017, Chr(32)) == TSTRING028(INTEGER024)) && (Len(STRING017) > 0)) Then
  3080.                 INTEGER036 = 1
  3081.                 AnsiPos INTEGER014 - Len(TSTRING028(INTEGER024)), INTEGER015
  3082.                 For INTEGER025 = 1 To Len(TSTRING028(INTEGER024))
  3083.                     Print " "
  3084.                 Next
  3085.                 AnsiPos INTEGER014 - Len(TSTRING028(INTEGER024)), INTEGER015
  3086.                 If (GetX() + Len(TSTRING029(INTEGER024)) < 80) Then
  3087.                     STRING017 = " " + TSTRING029(INTEGER024)
  3088.                     BIGSTR001 = TSTRING029(INTEGER024)
  3089.                     Goto LABEL066
  3090.                 Endif
  3091.                 If (GetY() <> 21) Then
  3092.                     TINTEGER018(INTEGER023) = Len(TSTRING012(INTEGER023))
  3093.                     INTEGER023 = INTEGER023 + 1
  3094.                     AnsiPos 1, GetY() + 1
  3095.                     STRING017 = " " + TSTRING029(INTEGER024)
  3096.                     BIGSTR001 = TSTRING029(INTEGER024)
  3097.                     Goto LABEL066
  3098.                 Endif
  3099.                 BIGSTR001 = TSTRING028(INTEGER024)
  3100.                 :LABEL066
  3101.                 Gosub LABEL022
  3102.                 INTEGER014 = GetX()
  3103.                 INTEGER015 = GetY()
  3104.             Endif
  3105.         Next
  3106.     Else
  3107.         For INTEGER024 = 1 To INTEGER047
  3108.             If (INTEGER036 == 1) Return
  3109.             If ((Lower(Trim(STRING017, Chr(32))) == Lower(TSTRING028(INTEGER024))) && (Len(STRING017) > 0)) Then
  3110.                 INTEGER036 = 1
  3111.                 AnsiPos INTEGER014 - Len(TSTRING028(INTEGER024)), INTEGER015
  3112.                 For INTEGER025 = 1 To Len(TSTRING028(INTEGER024))
  3113.                     Print " "
  3114.                 Next
  3115.                 AnsiPos INTEGER014 - Len(TSTRING028(INTEGER024)), INTEGER015
  3116.                 If (GetX() + Len(TSTRING029(INTEGER024)) < 80) Then
  3117.                     STRING017 = " " + TSTRING029(INTEGER024)
  3118.                     BIGSTR001 = TSTRING029(INTEGER024)
  3119.                     Goto LABEL067
  3120.                 Endif
  3121.                 If (GetY() <> 21) Then
  3122.                     TINTEGER018(INTEGER023) = Len(TSTRING012(INTEGER023))
  3123.                     INTEGER023 = INTEGER023 + 1
  3124.                     AnsiPos 1, GetY() + 1
  3125.                     STRING017 = " " + TSTRING029(INTEGER024)
  3126.                     BIGSTR001 = TSTRING029(INTEGER024)
  3127.                     Goto LABEL067
  3128.                 Endif
  3129.                 BIGSTR001 = TSTRING028(INTEGER024)
  3130.                 :LABEL067
  3131.                 Gosub LABEL022
  3132.                 INTEGER014 = GetX()
  3133.                 INTEGER015 = GetY()
  3134.             Endif
  3135.         Next
  3136.     Endif
  3137.     Return
  3138.     :LABEL068
  3139.     Cls
  3140.     FOpen 1, PPEPath() + "\CHATMCRO.ANS", 0, 0
  3141.     FGet 1, BIGSTR001
  3142.     PrintLn BIGSTR001
  3143.     FGet 1, BIGSTR001
  3144.     PrintLn BIGSTR001
  3145.     FGet 1, BIGSTR001
  3146.     PrintLn BIGSTR001
  3147.     AnsiPos 1, 19
  3148.     FGet 1, BIGSTR001
  3149.     PrintLn BIGSTR001
  3150.     FGet 1, BIGSTR001
  3151.     PrintLn BIGSTR001
  3152.     FGet 1, BIGSTR001
  3153.     PrintLn BIGSTR001
  3154.     FClose 1
  3155.     INTEGER025 = 0
  3156.     For INTEGER024 = 1 To INTEGER047
  3157.         INTEGER025 = INTEGER025 + 1
  3158.         If (INTEGER025 == 16) Then
  3159.             AnsiPos 10, 21
  3160.             If (FUNCTION002("@X0Fc@X07ontinue@X08? ") == 0) Break
  3161.             For INTEGER025 = 3 To 18
  3162.                 AnsiPos 1, INTEGER025
  3163.                 Print "                                                                             "
  3164.             Next
  3165.             INTEGER025 = 1
  3166.             AnsiPos 1, INTEGER025 + 3
  3167.         Endif
  3168.         AnsiPos 10, INTEGER025 + 3
  3169.         PrintLn "@X0B" + TSTRING028(INTEGER024)
  3170.         AnsiPos 30, INTEGER025 + 3
  3171.         PrintLn "@X0B" + TSTRING029(INTEGER024)
  3172.     Next
  3173.     AnsiPos 1, 22
  3174.     Wait
  3175.     Goto LABEL008
  3176.     :LABEL069
  3177.     BIGSTR001 = "U L T R A C H A T"
  3178.     Gosub LABEL037
  3179.     BIGSTR001 = "V E R S I O N  I N F O"
  3180.     Gosub LABEL037
  3181.     BIGSTR001 = STRING011
  3182.     Gosub LABEL034
  3183.     BIGSTR001 = ".."
  3184.     Gosub LABEL036
  3185.     BIGSTR001 = "BY"
  3186.     Gosub LABEL036
  3187.     BIGSTR001 = "MIKE MC"
  3188.     Gosub LABEL037
  3189.     BIGSTR001 = ".."
  3190.     Gosub LABEL036
  3191.     BIGSTR001 = "DO"
  3192.     Gosub LABEL036
  3193.     BIGSTR001 = "** NEVER **"
  3194.     Gosub LABEL037
  3195.     BIGSTR001 = "FORGET"
  3196.     Gosub LABEL036
  3197.     BIGSTR001 = "THAT"
  3198.     Gosub LABEL036
  3199.     BIGSTR001 = "=)"
  3200.     Gosub LABEL036
  3201.     Return
  3202.     :LABEL070
  3203.     AnsiPos 1, 23
  3204.     Print "                                                                               "
  3205.     If (INTEGER047 == INTEGER046) Then
  3206.         AnsiPos 1, 23
  3207.         BIGSTR001 = " You have reached the limit for the number of macros."
  3208.     Else
  3209.         AnsiPos 1, 23
  3210.         BIGSTR001 = " Triggerword:"
  3211.         Gosub LABEL022
  3212.         AnsiPos 15, 23
  3213.         TSTRING028(INTEGER047 + 1) = FUNCTION001("", 15, "@X0B", Mask_AlNum() + "öäåÖÄÅεÆ∩", BOOLEAN006)
  3214.         If ((TSTRING028(INTEGER047 + 1) == "") || (TSTRING028(INTEGER047 + 1) == "mike")) Then
  3215.             AnsiPos 1, 23
  3216.             Print "                                                                               "
  3217.             AnsiPos 1, 23
  3218.             BIGSTR001 = " Macro to short."
  3219.             Gosub LABEL022
  3220.             Delay 8
  3221.         Else
  3222.             AnsiPos 1, 23
  3223.             Print "                                                                               "
  3224.             AnsiPos 1, 23
  3225.             BIGSTR001 = " Replacement word:"
  3226.             Gosub LABEL022
  3227.             AnsiPos 20, 23
  3228.             TSTRING029(INTEGER047 + 1) = FUNCTION001("", 40, "@X0B", Mask_Ascii() + "öäåÖÄÅεÆ∩■∙·", BOOLEAN006)
  3229.             If (TSTRING029(INTEGER047 + 1) == "") Then
  3230.                 AnsiPos 1, 23
  3231.                 Print "                                                                               "
  3232.                 AnsiPos 1, 23
  3233.                 BIGSTR001 = " Macro to short."
  3234.                 Gosub LABEL022
  3235.                 Delay 8
  3236.             Else
  3237.                 AnsiPos 1, 23
  3238.                 Print "                                                                               "
  3239.                 AnsiPos 1, 23
  3240.                 BIGSTR001 = " Adding Macro..."
  3241.                 Gosub LABEL022
  3242.                 INTEGER047 = INTEGER047 + 1
  3243.                 FAppend 1, PPEPath() + "MACROS.DAT", 0, 0
  3244.                 FPutLn 1, TSTRING028(INTEGER047)
  3245.                 FPutLn 1, TSTRING029(INTEGER047)
  3246.                 FClose 1
  3247.                 FOpen 1, PPEPath() + "MACROS.NUM", 1, 0
  3248.                 FPutLn 1, String(INTEGER047)
  3249.                 FClose 1
  3250.                 Delay 10
  3251.                 AnsiPos 1, 23
  3252.                 BIGSTR001 = " Adding Macro... Done."
  3253.                 Gosub LABEL022
  3254.                 Delay 10
  3255.                 AnsiPos 1, 23
  3256.                 BIGSTR001 = " Total number of macros: " + String(INTEGER047)
  3257.                 Gosub LABEL022
  3258.                 Delay 8
  3259.             Endif
  3260.         Endif
  3261.     Endif
  3262.     :LABEL071
  3263.     Return
  3264.     :LABEL072
  3265.     AnsiPos 1, 23
  3266.     Print "                                                                               "
  3267.     If (INTEGER051 == 99) Then
  3268.         AnsiPos 1, 23
  3269.         BIGSTR001 = " You have reached the limit for the number of macros."
  3270.         Goto LABEL071
  3271.     Endif
  3272.     AnsiPos 1, 23
  3273.     BIGSTR001 = " Rumor: "
  3274.     Gosub LABEL022
  3275.     AnsiPos 15, 23
  3276.     TSTRING033(INTEGER051) = FUNCTION001("", 40, "@X0B", Mask_Ascii() + "öäåÖÄÅεÆ∩", BOOLEAN006)
  3277.     If (TSTRING033(INTEGER051) == "") Then
  3278.         AnsiPos 1, 23
  3279.         Print "                                                                               "
  3280.         AnsiPos 1, 23
  3281.         BIGSTR001 = " Rumor to short."
  3282.         Gosub LABEL022
  3283.         Delay 8
  3284.     Else
  3285.         AnsiPos 1, 23
  3286.         Print "                                                                               "
  3287.         AnsiPos 1, 23
  3288.         BIGSTR001 = " Adding Rumor..."
  3289.         Gosub LABEL022
  3290.         INTEGER051 = INTEGER051 + 1
  3291.         TSTRING033(INTEGER051) = "ULTRACHAT BY [MIKE MC]"
  3292.         FOpen 1, PPEPath() + "RUMORS.DAT", 1, 0
  3293.         For INTEGER024 = 1 To INTEGER051 - 1
  3294.             FPut 1, TSTRING033(INTEGER024) + Chr(13) + Chr(10)
  3295.         Next
  3296.         FPut 1, "" + Chr(13) + Chr(10)
  3297.         FPut 1, "  what da hell is this?" + Chr(13) + Chr(10)
  3298.         FPut 1, "-────────────────────────────────────────────────────────────────────────--" + Chr(13) + Chr(10)
  3299.         FPut 1, "The rumors (max 40 chars (if you use background 1 and 2!))" + Chr(13) + Chr(10)
  3300.         FPut 1, "Max 100 lines" + Chr(13) + Chr(10)
  3301.         FPut 1, "You can add rumors from inside the chatter with /ADDRUMOR" + Chr(13) + Chr(10) + Chr(13) + Chr(10)
  3302.         FClose 1
  3303.         Delay 10
  3304.         AnsiPos 1, 23
  3305.         BIGSTR001 = " Adding Rumor... Done."
  3306.         Gosub LABEL022
  3307.         Delay 10
  3308.         AnsiPos 1, 23
  3309.         BIGSTR001 = " Total number of Rumors: " + String(INTEGER051 - 1)
  3310.         Gosub LABEL022
  3311.         Delay 8
  3312.     Endif
  3313.     Return
  3314.     End
  3315.  
  3316. ;------------------------------------------------------------------------------
  3317. ;
  3318. ; Usage report (before postprocessing)
  3319. ;
  3320. ; ■ Statements used :
  3321. ;
  3322. ;    3       End
  3323. ;    6       Cls
  3324. ;    2       Wait
  3325. ;    809     Goto 
  3326. ;    1166    Let 
  3327. ;    230     Print 
  3328. ;    9       PrintLn 
  3329. ;    463     If 
  3330. ;    12      FOpen 
  3331. ;    1       FAppend 
  3332. ;    13      FClose 
  3333. ;    27      FGet 
  3334. ;    7       FPut 
  3335. ;    3       FPutLn 
  3336. ;    2       GetUser
  3337. ;    2       PutUser
  3338. ;    1       Log 
  3339. ;    282     Gosub 
  3340. ;    45      Return
  3341. ;    123     Delay 
  3342. ;    1       Inc 
  3343. ;    1       KbdStuff 
  3344. ;    12      DispStr 
  3345. ;    390     AnsiPos 
  3346. ;    35      SPrint 
  3347. ;    2       SPrintLn 
  3348. ;    1       PageOff
  3349. ;    2       KbdFlush
  3350. ;    3       MdmFlush
  3351. ;    1       Flag 
  3352. ;    1       Download 
  3353. ;    3       EndFunc
  3354. ;
  3355. ;
  3356. ; ■ Functions used :
  3357. ;
  3358. ;    18      -
  3359. ;    12      *
  3360. ;    36      /
  3361. ;    394     +
  3362. ;    174     -
  3363. ;    344     ==
  3364. ;    9       <>
  3365. ;    127     <
  3366. ;    86      <=
  3367. ;    47      >
  3368. ;    172     >=
  3369. ;    376     !
  3370. ;    219     &&
  3371. ;    103     ||
  3372. ;    116     Len(
  3373. ;    11      Lower()
  3374. ;    83      Upper()
  3375. ;    34      Mid()
  3376. ;    16      Left()
  3377. ;    66      Right()
  3378. ;    130     Chr()
  3379. ;    71      Asc()
  3380. ;    14      Trim()
  3381. ;    4       Random()
  3382. ;    4       Time()
  3383. ;    11      U_Name()
  3384. ;    1       U_Logons()
  3385. ;    1       TimeAp()
  3386. ;    38      Inkey()
  3387. ;    13      String()
  3388. ;    1       Mask_AlNum()
  3389. ;    2       Mask_File()
  3390. ;    2       Mask_Ascii()
  3391. ;    14      PPEPath()
  3392. ;    1       U_MsgWr()
  3393. ;    1       SysopSec()
  3394. ;    1       GetToken()
  3395. ;    2       Exist()
  3396. ;    4       S2I()
  3397. ;    69      GetX()
  3398. ;    71      GetY()
  3399. ;    7       KInkey()
  3400. ;    2       MInkey()
  3401. ;    1       TokCount()
  3402. ;    2       Mixed()
  3403. ;
  3404. ;------------------------------------------------------------------------------
  3405. ;
  3406. ; Analysis flags : Wfs
  3407. ;
  3408. ; W - Write user ■ 5
  3409. ;     Program writes a user record. Although this may be normal for a
  3410. ;     User Editor, it may also be a way to modify an account level.
  3411. ;     ■ Search for : PUTUSER
  3412. ;
  3413. ; f - Flag files for download ■ 3
  3414. ;     This may be normal if a PPE needs to send some files, but since
  3415. ;     this statement allows flagging of any file on the hard disk, you
  3416. ;     have to be carefull. Check!
  3417. ;     ■ Search for : FLAG
  3418. ;
  3419. ; s - Sysop level access ■ 5
  3420. ;     Program is reading the sysop access level, this may be normal
  3421. ;     but still it is very suspect. It is the best way to give a user
  3422. ;     all priviledges. Check!
  3423. ;     ■ Search for : SYSOPSEC()
  3424. ;
  3425. ;------------------------------------------------------------------------------
  3426. ;
  3427. ; Postprocessing report
  3428. ;
  3429. ;    79      For/Next
  3430. ;    8       While/EndWhile
  3431. ;    184     If/Then or If/Then/Else
  3432. ;    13      Select Case
  3433. ;
  3434. ;------------------------------------------------------------------------------
  3435. ;                 AEGiS Corp - Break the routines, code against the machines!
  3436. ;------------------------------------------------------------------------------
  3437.